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RENDEZ VOTRE APPLE “ ENCORE PLUS” 
Cartes et accessoires additionnels compatibles APPLE II @ 


CARTE D'UNITE CENTRALE 
double processeur 6808 et Z 80, 64 K 


WWE = 


3380" 
7 slots d'extensions, Fonctionne 


sous CPIM DOS 3,3 voir carte de programmation 


Entièrement équipée 


Fonctionne sous CP/M 
Utilisation de tout logiciel sous CP/M 
Entièrement équipée 


80 car. x 24 lignes. Résolution 7 x 9, Compatible avec 
la plupart des traitements de texte BASIC 


PASCAL, CP/M, MODEM 


Entièrement équipe 


TABLE GRAPHIQUE 


Pour renroduction du 
phisme, connectable 
ace du Joy-Stick 


MONITEURS 


ZENITH 


12" vert 


OCEANIC 


14" couteur 


« APPLE esi une marque déposée et appartient à APPLE COMPUTER S.A. 


DRIVE COMPACT 3 POUCES POUR APPLE 


MD 3 «HITACHI» 


Disque MD 3 


Le disque MD 3 entièrement 
compatible APPLE est de petite taille 
mais de grande capacité. Le disque 
compact 3°" bénéficie des dernières 
inrovations de la haute technologie 


HITACHI. 


Originalité : son MEDIA protégé et 
rigide offre les garanties de FACILITÉ. 


FIABILITÉ. ROBUSTESSE. 


Programmation lecture/copie 
chargement de programme directement sur la ROM. 
Entièrement équipée 


CARTE D'EXTENSION  — 
188 K RAM ln) 


Emulation disk-drive 
sous DOS, PASCAL ou CP/M 


s DOS, P/ 3880" 
Entièrement équipée 


CARTE DE CONNECTION 
SERIE / RS 838 C 


Entièrement équipée 


CARTE INTERFACE 
FLOPPY-DRIVE 


Permet la connection d'un lecteur de disques 


Entièrement équipée 


MONITEUR COULEUR 


RTC 


Décrit dans Radio-Plans n° 429 
Tube A37 590 Y 

Châssis VCC 90 

électronique et 

mécanique 

COMPLET 


ESPONDANCE 
s vous conssillons d 
FORFAIT DE PORT 


Spécllications MD 3 

- Capacité DD : 500 K octets. 
- Nombre de pistes : 80. 

- Densité : 100 TPI. 


COMPLET 
AVEC CONTROLEUR 


- Temps d'accès moyen : 55 ms. 


- Temps piste à piste : 3 ms. 


- Dimension : 90 x 40 x 150. 


- Poids : 0,8 kg. 
- Alimentation 
0,5 A. 


pouces HITACHI. 


CARTE LANGAGE 16 K BAM 


= 


Pour extension du 48 K RAM en 64 K, Compatible 


FORTRAN PASCAL, LISP, BASIC 

F 
Entièrement équipée 
GARTES D'INTERFACAGE 


Fr 

Cane RVB (Pour monteur couleur) 8 
Fr 

Carte «SPEETCH» en anglais 698 
: Fr 

Care musicale pour synthétiseur de son 888 


Cane horloge 786 
Carte vidéo MODEM 88807 
VENTILATEUR «PAN» 498 
ALIMENTATION 2 v 54, 799" 


CARTE INTERFACE 
IMPRIMANTE 


=" 


Pour toutes marques sortie CENTRONIC'S - Butter 


BTS 


Livrée équipée en 16 K 
(extension jusqu'à 64 K} 


CLAVIER ASC 


68 touches. Alphanumérique 
Majuscules, minuscules, décimales 


COFFRET 


pour carte de base 
et pavé numérique 


dJOY-STICK 
5 


équipé de 2 trimes 
pour recherche du point zéro 


ACER MICRO 


42, rue de Chabrol, 75010 Paris. 


Tél. 770.28.31. 


32 V. 0,5 A- 


- Media : disquette compacte 3 


- Vitesse de rotation : 300 Timn. 


5 V, 


disquetie 
j'unité 85 F 


FLOPPY DRIVE 8” 


DISQUETTES POUR FLOPPY 
5° SF-SD, par 10 l'unité g 19,50 
SF-SD, 16 secteurs 
SF-DD, 10 secteurs 
DF-0D, 96 TPI 
DF-DD, 16 secteurs 


IMPRIMANTE SEIKOSHA 
GRAPHIQUE COMPACTE 
GP 100 A 


sans contrôleur 


avec contrôleur 


roo 8 80" 


Interface parallèle en standard. 80 car.!ligne. 50 car 
sec. Impression en simple ou double largeur Papier 
normal. Entraînement par tracteurs ajustables 


INTERFACES POUR GP100 A 

APPLE I ou IE avec câble 9907 
Séris AS 232 9907 
ZX 81 880 


Câbles pour onic 880" 
107 88 


BOX DE COMMANDE 
Veuillez me faire parvenir 
le matériel suivant 


2807 
280" 
EFFACEUR D'EPROM 
EN KIT 


Complet avec notice 
D eu 6 ns 


SANYO 
HC 25 
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M. 
W rue 
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Editorial 


Le monde de la micro-infonnatique subit en ce moment la révolution que de nombreux experts avaient 
annoncée ces derniers mois : la disparition de plusieurs fabricants. Osborne à déposé son bilan, Texas 
Instruments s’est retiré du marché des ordinateurs familiaux. Atari a des problèmes, Victor (Sirius) souf- 
fre, et on ne sait même pas ce qu'il adviendra de Commodore, pourtant pratiquement le seul au- 
jourd’hui à gagner encore de l'argent dans le marché de l'ordinateur familial Quant aux actions d'Ap- 
ple, elles ont baissé des deux tiers entre juin et septembre 1983... Il reste IBM. qui marche trés fort pour 
des raisons multiples que nous n'avons pas le temps de détailier ici, et les Japonais dont on peut à juste 
titre craindre le déferlement sur nos marchés dans les mois à venir. maintenant qu'ils se sont assuré le 
concours des meilleures sociétés de logiciel, telles que Microsoft. 


Enfin, pour ma part, travaillant personnellement sur Apple et IBM PC. je peux vous garantir que je ne 
dispose, sur mon PC, que d’une infime fraction des logiciels dont je bénéficie sur l'Apple. Le temps de 
l’Apple n'est donc pas encore révolu : je viens d'ailleurs d'acquérir une carte Quadlink qui me permet 
de faire fonctionner l'IBM PC comme un Apple Plus 40 colonnes. Hélas, cette carte n'autorise pas 
encore la simulation du Ye ou de cartes 80 colonnes. Mais cela viendra certainement... 


Dans ce numéro, René Fakir (eh oui, c'est un pseudonyme. mais il s'agit de quelqu'un qui contribue 
pour la première fois à Pom's |) vous parle de communication, sujet que nous avions promis de couvrir. 
Jean-François Groussin vous propose un programme d'aide au dessin HGR et un programme 
d'écriture de caractères géants sur imprimante. Jean-Michel Clin vous donne un “patch” du DOS qui 
facilite la manipulation des programmes en BASIC Integer. Dominique Compère vous offre pour sa 
part un programme de gestion de compte bancaire dont l'intérêt peut être à la fois "utilitaire" et péda- 
gogique. 


Les amateurs du Pascal trouveront dans ce numéro un programme original de création graphique 
réalisé par Nicolas Montsarrat. Toujours dans le domaine graphique, Philippe et Guy Mathieu 
présentent un ensemble de routines en Apnlesoft permettant la représentation de séries de valeurs 
numériques, tandis que Philippe Krepper vous donne un moyen de réduire la place occupée sur 
disquette par les images HGR. 


André Airy met à la disposition des possesseurs de LISA un programme qui leur permettra de conver- 
üir les fichiers BIG MAC en programmes-sources utilisables par leur assembleur favori. Gérard Michel 
présente une routine d'INPUT permettant la saisie contrôlée de tableaux de variables. Olivier Herz, 
toujours astucieux. vous propose de réaliser un calendrier perpétuel avec Visicalc. 


Dans le cadre de notre rubrique de bancs d’essai, François Renault analyse le nouveau CX Système 
et Guy Lapautre épluche le fonctionnement de Décisionnel Graphique. Jean-François Duvivier pré- 
sente avec sa compétence habituelle les Micro-Informations et Olivier Herz assure, pour la dernière 
fois dans l’année à venir, le Courrier des Lecteurs. Enfin. ce qui ne gâche tien, notre rubrique Trucs et 
Astuces est en croissance régulière. 


Nous rappelons aux lecteurs que, parfois. les disquettes leur parviennent ‘écrasées” par les PTT (c'est 
un autre problème que celui de la disquette “pliée”, qui. lui se repère de suite). Pour savoir si une 
disqueite a subi pareil traitement, essayez de la faire tourner à la main : toute résistance anormale est de 
ce point de vue significative et la disquette, ne pouvant être entraînée par le lecteur, risque de présenter 
à l'usage les caractéristiques d’une disquette vierge (pas de ‘’boot”, pas de CATALOG...) Dans ce cas, 
avant de nous retourner la disquette concernée, essayez de découper l'enveloppe en carton pour libérer 
le disque et en permettre la lecture : cette manipulation permet presque toujours de récupérer les don- 
nées qui, elles, ne sont pas sensibles aux surcharges pondérales ! Nous essayons de protéger nos dis- 
quettes et de faire appel aux bons soins des postiers (tous nos envois portent la mention “Ne pas plier, 
ni écraser S.V.P."), et cela nous pose bien évidemment problème de devoir remplacer des produits 
expédiés en parfait état mais détériorés pendant le transport. il serait difficile, pour vous comme pour 
nous, de payer un emballage plus cher que son contenu, uniquement pour limiter les conséquences 
d'un service dont la qualité n’est pas toujours ce qu'elle devrait être... 


Toujours au sujet des PTT, nous n'avons rien pu faire face aux grèves récentes que nous sommes bien 
forcés de subir. Certains ont reçu leur n° 9 très tard, d'autres pas encore. Nous n'y pouvons malheureu- 
sement rien ; par contre, si un lecteur abonné n'a pas encore reçu son numéro ou sa disquette. nous 
sommes pré à lui ré-envoyer ce qui aurait été perdu par les PTT à 50 % du prix. 


Nous n'avons pas encore décidé de la date à laquelle Pom's deviendra bimestriel, mais nous vous 
confirmons que cela arrivera en cours d'année 84. Bonne lecture et à bientôt ! 
Hervé Thirlez 


Ont collaboré à ce numéro : André Airy - Jean-Michel Clin - Dominique Compère - Joël Delannoy - Jean-François Duviviee - René Falér 
- Jean-François Groussin - Olivier Herz - Gérard Hisleur - Philippe Krepper - Guy Lapautre - Guy Mathieu - Philippe Mathieu - Gérard 
Michel - Nisolas Montsarrat - François Renault - Hervé Thiriez. Rédacteurs : Gérard Michel - Alexandre Avrane — Dessins : Laurent Bidet 
Directeur de la publication - rédacteur en chef : Hervé Thiriez - Siège social et abonnements : Editions MEV - 49, rue Lamartine - 
78000 Versailles - Rédaction et courrier des lecteurs : 59. bd de Glatigny - 7888€ Versailles - Tél. : {3} 951.24.43 

Régie publicitaire : Force 7 - Anne Jourdan - 39, rue de la Grange-aux-Beiles - 75483 Paris Cedex 10 - Tél. : (1) 238.66.10. 

Diffusion auprès des boutiques et librairies : PSI Diffusion - BP 86 - 77402 Lagny-sur-Mame Cedex. 

Composition : Télécompo - 13-15, avenue du Pett Parc - 94300 Vincennes . Tél  328.18.63. 

Impression : Rosaÿ - 47, avenue de Paris - 94300 Vincennes - Tél. : 328.18.63. 
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MICRO-PERIPH 
ouvre les portes de votre Serpie LI 


NOUVEAU 


LECTEURS DE DISQUES RANA CINQ POUCES 

Il en existe trois modèles qui sont tous compatibles avec Apple en DOS 

3.3, Pascal et CPIM 

Eiile ! capacilé 163 K 

Eiile fl capacilé 326 K 

Elite 11 capecité 652 K 

Ces lecteurs de disques, iabriqués eux Étals-Unis, sont livrés avec une 

membrane penrettant de protéger les disques contre l'écriture. {ls lonc- 

tionnent parfaitement avec les contrôüieurs de disques Appie. Ces lecteurs 

A fail leur preuves aux États-Unis et sont livrés evec une garantie de 
mois. 


NOUVEAU 


WILOCARD {1 400 F T.T.C) 

Cette certe équipée d'un bouton poussoir vous permet d’arrôter l'exécu- 
tion d'un programme et de décharger l'é#lat de mémoire sur un disque. Ce 
qui veut dire que vous pouvez réaiiser des copies de programmas qui ne 
sont plus protégées ou sauvegarder un programme de jeu à un niveau 
cholsl. Grâce à ces iogiclels utilitaires, cette carte es1 de loin la Plus puis- 
sante de ce genre. La carte est livrée avec un manuel détaitié en trançais. 


LES CARTES « PILOTS » 


U-TERM (t 490 F T.T.C) 

Cette carte qui vous donne 80 colonnes sur l'écran vous permel d’avoir 
deux Jeux de caractères à ia fois qui sont co-résidents dans la mémeire 
vlve êt la mémoire morle de !s carte. Par exemple, lss caractèrea français 
majuscules et minuscules ainsi que les caractères angle-saxons. Elle a 
une Irês grande gamme de counpatibilité : APPLESOFT, PASCAL, CPIM, 
APPLEWRITER li, etc. (Photo 2). 

U-260{t 150 F T.T.C.) : son point fort est la vitesse: 4 MHz. Compatibie avec 
tous les logiciels CP/M ou de ZB0 (Pholo 1). 

U-RAM16 {890 F T.T.C.) : c'est une carte lengage entièrement compatible 
avec INTEGER BASIC, PASCAL, VISICALC, etc. Pourquoi payer plus cher ? 
U-S232 {1 040 F T.T.C.} : une carte de série, vitesse variable entre 75 et 
19200 bauds.Cette cart contient son Propre logiclei de handshake. ce qui 
permal de faire fonctionner une imprimante à se vilesse optimale, Compa- 
tible avec le logiciel de communication VISITERM (Photo 9}. 


LES PROMOTIONS 


Carte ACCELERATOR II 4 350 F T.T.C. Interfaces graphique 1 060 F 
Moniteur Zenith Veri 1120F T.T.C. Ultraterm 5 100 F 
Moniteur Zenith Ambre 1230 F T.T.C. Synthétiseur vocal 1 380 F 
JOYSTICK 380 F F.F.C. Vision 80 
DISOUETTES grande mefque . Le moins cher à Paris. 
INTERFACE af BUFFER graphique pour Epson, etc. : 16 K 
64K 
LOCKSMITH systéme de sauvegarde de logiciels 
VENTILATEUR très silencieux - garanli 5 ans 
ASSEMBLEUR ‘Merlin (South Western Data Sys) 
APPLICARDO carte CP/M 6 MHz avec 64 K RAM 
SAYBROOK carte 68000 12 MHz avec UCSD p. sys. elc 
C.L.A. le dernier né dans les copieurs . très puissant 
Contrôieur de disques Apple || +,/#e 
Partageur imprimante paralièle (3 micros, 11mprim) 
SPEED STAR - compileteur de progremmes.en Basic 
Contrôleur de disques pour 4 drives 
STRAUCTURED BASIC un nouveau basic ressemblant à Pascal 1 060 F T.TC 
LECTEURS et GÉNÉRATEURS de code à barres NC. 


Ouvert du mardi au samedi : 10h-12het14h-18h 
62, rue Ducouédic - 75014 PARIS (Tél. : 321.53.16) 


NOUVEAU 


PROMOTION DE LECTEURS DE DISQUES — 2 550 F T.T.C) 

+ 100% compatible avec Apple I! + et le 

+ Mécanique Siemens Corp. avec système vis sans fin 

+ Électronique fabriquée en Grande-Bretagne 

» Entièrement testé et garanti 12 mois 

* Opération très silencieuse et précise 

{Pour les ventes par correspondance, veuillez ajouter 40 F de port.) 


OUVEAU 


PROGRAMMEUR D'EPROMS (1 400 F T.T.C.). La carte se branche dans un 
slot de l'Apple Il et permet de programmer directement les EPROMS (2758, 
2716, 2732 et 2764), Un logiciel de gestion du programmeur se trouve sur la 
carte de mémoire morte. Une carte existe également pour adapter les 
EPROMS programmés sur l'Apple 11 (630 F T.T.C) 


EXTENSIONS DE MÉMOIRE 


U-RAM 32K (1 450 F T.T.C.), U-RAM 64K (2 590 F T.T.C.), U-RAM 128K 
(4 250 F T.T.C.) (Photos 7 et 41 VERSA RAM émulateur de disque (690 F 
T.T.C) 


CARTES SCIENTIFIQUES 


U-A/D (5 880 F T.T.C.) : carte analogue digitale haute vitesse, 12 bits, 
16 voies (Photo 6) 

Carte A/D 8 bits (1 400 F T.T.C.), 1 voie (470 F TTC.) 

Carte D/A 8 bits (1 889 F T.T.C.), 1 voie (450 F T.T.C.) 

U-BCD (1 120 F T.T.C.) (Photo 8) 

U-DT (1 350 F T.T.C.), 32 lignes entrée-sortie avec temporisateur et buffer 
U-TIM (1 120 F T.T.C.), temporisateur 

U-2 PORT (1 960 F T.T.C.) : 2 portes RS 232 sur la même carte extensible 
jusqu'à 8 portes{Photo 5) 

THE MILL 6809 (NC) : co-processeurs à haute vilesse el de muitiprogram- 
mation 

Carte 68000 (NC) 16 blis + 32 bits interne (Photo 3). 

Nous avons plusieurs autres cartes qui ne sont pas mentionnées ici: 
renseignez-vous 


NOUVEAU 


RAMEX 128 K AVEC V.C EXPAND VERSION 80-2 (5 800 F T-T.C.) 

SI vous souhaitez utiliser votre VISICALC avec : 

* 136 K de mémoire + chargement d'un tableau comptet sn 20 secondes 
* 80 colonnes sur l'écran (fogiciel compatible avec 4 différentes caites 
80 colonnes) 

* Largeur de colonnes variable individuellement 

* Curseur programmable 

-« Beaucoup d'autres améliorations très nombreuses 

{Ce logiciel qui est également compatible avec les cartes Saturn est dispo- 
nible séparément (1 570 F TTC. La carte RAMEX 128 K est disponible 
aussi séparément pour 4 600 F T.T.C., y compris le logiciel SOLIDOS.) 


PROMOTIONS IMPRIMANTES 

EPSONFX 80 5800 F T.T.C. EPSON RX 80 4 090 F T.T.C. 

EPSONAX 80 F/T 4210FT.F.C. EPSONMX 100 6250FTT.C. 

MANNESMAN Spirit 80 3750F T.T.C. (80 cps, matrice 8x9, 142 car. par 
ligne, Impression graphique). 


Si vous ne voyez pas ce que vous cherchez ou si vous désirez de plus amples 
renselgnements, téléphonez à MICRO-PÉRIPH (321.53.16). Si vous ne pouvez 
vous déplacer, téléphonez-nous pour connaître le revendeur le plus proche de 
chez vous ou complétez le bon de commande ci-dessous. 

TOUTES NOS CARTES SONT GARANTIES 12 MOIS 


BON DE COMMANDE 


A découpsr et envoyer à 
MICRO.PÉRIPH, 82, rue Ducouédic . 75014 Paris - Tél. : 321.53.16 
Je désire recavolr rapidement, sous pli recommandé : 


QUANTITÉ DÉSIGNATION TOTALT.T.C 


Total 
Frais de port recommmandé 


Ci-joint un chéque/C.C.P. de F : 








MATGRAPH : votre routine graphique 


Ü existe de très nombreux program- 
mes permettant de représenter gra- 
phiquement des séries de valeurs nu- 
mériques. Certains, tels APPLEPLOT 
où VISIPLOT, se présentent indé- 
pendamment de tout programme de 
traitement. D'autres sont normale- 
ment associés à des programmes 
divers : PFS-GRAPH fait partie de la 
série des PFS, DGRAPH est lié à 
DBASE ll, etc. D'autres enfin sont 
écrits sur mesure pour un problème 
donné, par exemple une représenta- 
tion de planning, de statistiques, ou 
encore de notes de musique. 


Sans être très complexes à écrire, ces 
programmes doivent toutefois appor- 
ter une solution satisfaisante à un 
certain nombre de problèmes spécifi- 
ques du graphique : détermination 
d'échelles convenables, tracé dans 
un cadre standard, et ce quelles que 
soient les valeurs à représenter, pes- 
sibilité de titrage et inscriptions diver- 
ses sur écran graphique, sortie sur 
imprimante... 


MATGRAPH (avec MAT comme Ma- 
thieu et non comme Mathématique !) 
est un sous-programme écrit en Ap- 
plesoft destiné à être intégré dans 
vos propres programmes de traite- 
ment. Vous pourrez alors, moyen- 
nant quelques précautions élémentai- 
res, représenter sous forme gra- 
phique les séries de valeurs calculées 
par Vos programmes (jusqu’à 200 
valeurs par série). 


L'éventail des types de graphes qui 
vous sont proposés comprend le 
tracé d'une ligne, le tracé de symbo- 
les graphiques en chaque point 
(petits carrés), l'association des deux, 
et le tracé de diagrammes à barres. 
Les abscisses sont graduées selon le 
nombre de valeurs contenues dans la 
série et les ordonnées en nombres 
entiers associés à des puissances de 
10. Ainsi, une échelle allant de —3 à 
10 avec 10 A2 permet la représenta- 
tion de valeurs situées entre —300 et 
1000. 


Un fac-similé des diverses représenta- 
tions possibles est donné à la fin de 
l'article. On v verra que MATGRAPH 
permet également de titrer les graphi- 
ques obtenus. On dispose enfin de 
deux options de sortie : impression 
du graphe ou enregistrement sur dis- 
quette. En ce qui conceme l’impres- 
sion, un emplacement est réservé 
pour que vous puissiez, si ce n'est 
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déjà fait, introduire les paramètres 
spécifiques de la commande graphi- 
que de votre imprimante. 


Utilisation 


Dès l'appel du sous-programme. 
l'écran passe en mode graphique 
(HGR}) et deux lignes de commande 
apparaissent en bas de l'écran. La 
première propose les quatre types de 
représentation possibles, la seconde 
permet de mettre en oeuvre les op- 
tions de titrage, d'impression et de 
sauvegarde sur disque, ou de quitter 
le sous-programme. 


On se déplace sur ces lignes en utili- 
sant les flèches à droite et à gauche, 
tandis que le RETURN active le 
choix effectué. Les options de la der- 
nière ligne ramènent provisoirement 
à un écran texte pour l'entrée de 
données avant le retour à l'écran 
graphique. 


Pour que vous puissiez faire un essai 
des différentes possibilités du pro- 
gramme afin de juger de l'intérêt de 
son intégration à vos traitements, 
nous vous le proposons sur la dis- 
quette d'accompagnement de ce nu- 
méro associé à un mini-programme 
qui tire au hasard une série de va- 
leurs. Il va sans dire que chacun peut 
remplacer ces quelques instructions 
par d’autres de son choix. 


Quelques secondes d'attente sont 
inévitables dès que l’on a choisi l'une 
des options graphiques avant que le 
graphe n'apparaisse à l'écran, ce 
délai est d'autant plus long que la 
série de données est importante. 


La fin d'exécution renvoie au pro- 
gramme principal. 


Conditions d'emploi 


L'utilisation de MATGRAPH réclame 
quelques précautions. 


Le disque-programme doit contenir 
le programme en langage-machine 
ALPHAHGR qui permet l'écriture sur 
écran graphique. Ce programme se 
loge de l'adresse 37000 à l'adresse 
38400 et doit donc être protégé par 
un HIMEM. 


À l'inverse, un LOMEM doit protéger 
la page graphique HGR contre les 
débordements intempestifs de varia- 
bles. 


Philippe et Guy Mathieu 


De très nombreuses variables, indi- 
cées ou non, sont utilisées. Pour évi- 
ter toute confusion, la plupart d'entre 
elles ont pour premier caractère la 
lettre G (il y a aussi des variables ba- 
nales d'indices de boucles et des va- 
riables classiques de coordonnées en 
X et Y)} Une bonne précaution 
consiste donc à éviter l'emploi de va- 
tiables dont le nom commence par G 
dans le programme appelant. 


Il est en revanche indispensable de 
donner le nom GP$ à la série de va- 
leurs à représenter avant l'appel du 
sous-programme. Ce tableau doit 
être préalablement dimensionné à 
200. Il faut également préciser dans 
une variable GNF le nombre effectif 
de valeurs de la série (cf. l'exemple 
donné dans la liste ci-après). 


N'oubliez pas par ailleurs d'introduire 
les paramètres relatifs à votre impi- 
mante à leur emplacement réservé 


(voir ci-dessous). 


Commentaire du listing 


Les instructions de protection 
(HIMEM et LOMEM) et de dimen- 
sionnement du tableau GP$ sont 
rappelées pour mémoire en tête du 
programme. 


Viennent ensuite quelques instruc- 
tons qui ne sont utiles que pour le 
programme de démonstration (lignes 
1000 et suivantes). 


Le sous-programme MATGRAPH 
proprement dit commence à l’instruc- 
tion 60000 (numéro élevé choisi 
pour éviter les interférences avec vos 
propres instructions, mais rien ne 
s’oppose à une renumérotation du 
sous-programme si vous l’estimez né- 
cessaire). Il comporte 5 parties. 


La première, à partir de 60000, ini- 
tialise les variables et dimensionne 
celles qui doivent l’étre. 
ATTENTION : le premier appel à 
MATGRAPH doit se faire par un 
GOSUB 60000, mais les suivants, à 
l'intérieur d'un même programme, 
doivent résulter d'un GOSUB 60050, 
sinon vous obtiendrez une erreur de 
redimensionnement et, éventuelle- 
ment, une erreur de lecture dans les 
DATA. 

Les instructions 60080 et suivantes 
sont réservées au paramétrage de 
votre imprimante, 


D 


D 


D 


La seconde partie, à partir de 60100, 
gère les options de titrage, impres- 
sion, sauvegarde et fin du sous-pro- 
gramme. 


La troisième, à partir de 60200, per- 
met le choix parmi les options du 
menu et retourne une valeur II cor- 
respondant à l'option choisie. 


La quatrième, à partir de 60250, est 
destinée à l'écriture sur écran graphi- 
que. C'est elle qui appelle par un 


CALL le programme en langage ma- 
chine ALPHAHGR. 


La cinquième enfin. à partir de 
60300, constitue le programme de 
tracé graphique proprement dit, avec 
les 4 options qui ont déjà été évo- 
quées. Le choix est fait grâce à une 
variable GO calculée à partir de la 
variable intermédiaire [ I. 


Remarque générale 


Pour que le sous-programme MAT- 
GRAPH soit relativement facile à in- 


tégrer dans des progammes d’appli- 
cation, il était indispensable d'en 
réduire au maximum la longueur. De 
ce fait, de nombreux contrôles utiles 
ont été abandonnés. Il est fort possi- 
ble, voire probable, que dans certai- 
nes circonstances particulières l’ab- 
sence d'un contrôle entraîne des 
perturbations inattendues. Si pareille 
chose devait vous advenir, les au- 
teurs sollicitent par avance votre in- 
dulgence et se fient à votre compé- 
tence pour combler le vide laissé par 
leur souci de concision. 


Programme MATGRAPH 'STOP" 
60122 UVTAB 5: INPUT GT$: IF GTS = ‘" TH 
1 HIMEM: 36999 EN PRINT G$:6G$: GOTO 60120 
2 L@MEM: 17000 60124 IF LEN (GT$) > 20 THEN PRINT G$ 
3 DIM GP(200) 52 PRINT G$: GOTO 60120 
TO À RÉMCS Een 60126 UT = XU —- 14:HT = XH + 7:L$ = GT$: 
20 REM REPRESENTATION GRAPHIQUE GeSUB 60750 
30 REM DE SERIES DE VALEURS 60128 GOTO 60110 
40 REM (CAPPLESOFT) 60140 UTAB 3 
50 REM === mm 60142 PRINT "METTEZ L’IMPRIMANTE EN ROU 
1000 REM PROGRAMME DE DEMONSTRATI ON TE" 
1010 GN = 30 60144 GET 2$: PRINT 
1020 FOR I = 1 TO GN 60146 PRINT D$'"PR#1" 
1030 GPCI) = RND C1) x 100 - 33 60148 PRINT G$ 
1040 NEXT 60150 PRINT D$"PR#G" 
1050 GOSUB 60000 60152 GOTO 60110 
1060 END 60160 UTAB 3: PRINT "SOUS QUEL NM VOUL 
60000 REM MATGRAPH EZ-VOUS L 
60002 REM DATA ET DIMENSIONS 60162 INPUT *SAUVER CE FICHIER? 
60004 DIM GG(200) ,GH(200) ":6S$ 
60006 DATA LIGNE, SYMBOLES ,LIGN+SYMB,BAR | 60164 UTAB 6: INPUT "SUR GQUEL LECTEUR D 
RES,TITRER, IMPRIMER, SAUVER, GQUITTE E DISQUES? ":62$ 
R 60166 PRINT D$"BSAUE" ;6GS$:".A$2000 ,L#20 
6000B FOR I = O TO 7: READ MENUS(I): NE 00,D":6G2$ 
XT 60168 GOTO 60110 
60050 REM PARAMETRES D'’INITIALISATION 60200 REM MENU 
60052 HOME : HGR 60202 UT = 21:HT = 1 
60054 D$ = CHR$S (4)3:G$ = CHR$ (72:@$ = | 60204 II = CUT - 213 x 4 + CHT — 1) / 10 
CHR$ (17) 60206 UTAB UT: HTAB HT: INVERSE : PRINT 
60056 G2 = .43429q MENUS(I I) 
60058 X0 = 50:Y0O = 134:XH INT CXO / 7 | 60208 GET 2$:2 = ASC (z$) 
D:XU = INT (YO / 8) 60210 IF Z 13 THEN NORMAL : LTAB UT: 
60060 PRINT D$"BLOABALPHAHGR,437000" HTAB HT: PRINT MENUS(II): RETURN 
60080 REM SUITE RESERVEE AUX PARAMETRES 
D’ IMPRIMANTE 60212 IF Z 4 D) 8 ANS Z ( > 21 THEN P 
40100 REM COMMANDE RINT G$:: PRINT G$: GOTO 60206 
60102 UT = 21:HT = 1: FOR I = O TO 3: UT | 60214 UVTAB UT: HTAB HT: NORMAL : PRINT 
AB UT: HTAB I *x 10 + 1: FRINT MEN MENUSCII) 
U$C1): NEXT : FOR 1 = 0 TO 3: UTA | 60216 IF Z = 8 THEN HT = HT - 10: IF HT 
B UT + 1: HTAB 1 »# 10 + 1: PRINT € 1 THEN HT = 31:0T = UT = 1: IF 
MENUS(CI + 4): NEXT UT < 21 THEN UT = 22 
60110 POKE - 16304,0: GOSUB 60202: NOR 60218 1F Z = ?21 THEN HT = HT + 10: IF H 
MAL : UTAB 3: FOR I = 1 TO 5: PRI T > 31 THEN HT = Li0T = ÙUT + 1: I 
NT " F UT ) 22 THEN UT = 21 
“; NEXT 60220 GOTO 60204 
60112 IF II = 7 THEN NORMAL : TEXT : R | 60250 REM A:ECRIT. HR 
ETURN 60252 L = LEN (L#$) 
60114 IF II < 4 THEN GO = II + 1: GOSUB 60254 FOR JJ = 1 T® L: POKE 37799 + JJ, 
60300: GOTO 60110 ASC € MIDS (L$,JJ,1)>: NEXT 
60116 POKE - 146303,8 60256 POKE 37491,0T: POKE 37492,HT - 1: 
60118 ON II - 3 GOTO 60120,40140,601640 POKE 37490.L 
60120 UTAB 3: PRINT "TITRE À DONNER AU 60258 CALL 37518: RETURN 
GRAPH ? (20 CARACTE | 60300 REM TRACE 
RES MAXI) 60302 GA = GP{1):G2 = GP(I) 


AOSSERNEELENNNEEEENENEEEN 


8 


Pom's n 10 





LIGHE 





1: CHE 





SYMÉOLES — SiNUSOICE 








Te LISNE ET 5>*HMBOLES nes NOMRFES ALEATOIRES 























DIASRANME À BARRES 


Attention ! = 

MATGRAPH, comme d'autres programmes d'ailleurs, est 
totalement allergique au PLE. Vous pourrez facilement le 
vérifier si vous avez le PLE. 


Tous ces graphiques ont été créés à l’aide du programme 
MATGRAPH en modifiant éventuellement les instructions 
entre 50 et 60 000. 
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60304 FOR 1 = 1 TO GN TOSXSEUTLSN EL TOEX ES AS TT 0 


60306 IF GA > GPCI) THEN GA = GP€I) Er ON nl 
60308 IF GPCI) > GZ THEN GZ = GP(I) 60378 IF GO = 2 THEN 60390 
60310 NEXT 60380 IF I > 1 THEN HPLOT XX,YY FO X,.Y 
60312 GX = ABS (GZ):6Y = ABS (GA) 60382 XX = X:YY = Y 
60314 GM = GX: IF GY > GX THEN GM = GY 60384 IF GO < > 4 THEN 60390 
60316 GL = INT € LOG (GM) x G2) 60386 11 = 4: 1F GN > 10 THEN II = 2: IF 
60318 GG = GZ / {1G ” GL) GN > 25 THEN I1 = 1: 1F GN > 50 
60320 GY = INT (GO): 1F GY < > GO THEN THEN II = 0 

GYY= GC" +71 6038B HPLOT X - II,YO TO X - II,Y TO X 
60322 GZ = GY x (10 © GL) + 11,Y TO X + I11,Y0 
60324 G1 = GA / (40 * GL) 603790 NEXT 
60326 6B = INT (G1) 60392 RETURN 
60328 GÀA = GB x {18 * GL) 60410 DIM GGC200) ,GHC200) 
60330 GI = GY - 6B:6G = 100 / (GZ - GA) 


60332 FOR 1 = i TO GN : ; 
I1 faut entrer le code objet ci-dessous 
60334 GGC1) = no — GA) x GG en moniteur, puis le sauvegarder avec : 


60336 GHC1) ee ET 8SAVE ALPHAHGR,437000 , L 1400 


60338 NEXT Les zones $9088-9281 et 57373-59600 


4 = 
ne se 38,Y0 - 126 TO XO - 38 sont des tables que MATGRAPH manipule. 


,ŸYO + 20 TO XO + 210,Y0 + 2ü TO X ALPHAHGR 
di 210 0e les Too Set Lee ee Zone $928E-$9372 

| 60344 HPLOT XO - 9,Y0 - 100 TO xo - 7,y | 7270- 92 44 4 44 ED 7A 72 DA 

. De ODA D D V0 00 Co UN 7275 OAI ON GSNED ADi4S: 92158 

fs DE 92A0- ES ED 85 EC A9 20 8D 79 

M 60346 FOR 1 = 0 TO GI: HPLOT xo - 9,ya | 72887 92 ÀS ED 04 04 18 65 ED 

2 RE RE te 9280- BD 7B 92 AS EC 4A 85 EC 

MN Go348 [F0 x GB: 400 THENL UPLOT X0= 7 [7229 D" 782727-70 02 67 %7F ED 

= 92C0- 78 92 18 AS EC 60 79 92 

& ,YO + G8 * 100 / GI TO XO + 205,Y 

fe AU Me ARE 92C8- 8D 79 92 18 AD 74 92 6D 

D 2050 Le “STRS (Ga MT eh -NSiUr = x M 700 0e 72 D 28 72 A7 0060 

# Ar nue 9208-79 92 ED 7? 92 18 A9 00 

L 5 Let RES - 80 78 92 A2 00 A9 00 85 

n os? LS = STRS (BE):UT = XV: GOSUB 602 | 2266 FA AD 76 92 88 EC AD 77 


92F0- 92 BS5 ED AC 78 92 89 A8 
92FB- 93 38 E9 20 8D 7A 92 85 
9300- F9 06 F9 26 FA 06 F9 26 
9308- FA 06 F9 26 FA 38 ÀS5 F9 
9310- ED 74 92 85 F9 ÀS FA E9 
9318- 00 85 FA 18 AD 75 92 65 
9320- F9 85 F9 AD 76 92 65 FA 
9328- 85 FA À9 00 À8 B1 F9 80 
9330- 74 92 À9 00 AB AD 74 92 


É 60354 L$ = "10°" + STR$ (GL):HT = XH:UT 

= XV - 13: GOSU8 60250 

60356 II = i: 1F GN > 10 THEN 1I 
GN > 50 THEN II = 10 

.60358 FOR I = Q TO GN STEP 11 

60360 HPLOT XO + I x 200 / GN,YO + 4 

60362 NEXT 

60364 L$ = "{":HT = XH:UT = XV + 2: GOSU 


9221 


(il 


8 60250 
Es : = N . 9338- 91 EC E8 À9 04 18 65 ED 
60366 se pra {GN):HT XH + 28: GOSU 9340- 85 ED A5 F9 69 01 85 F9 


9348- AS FA 69 00 85 FA 8A C9 
9350- 07 DO D7 18 AD 7B 92 69 
9358- 01 8D 78 92 AD 77 92 69 
9360- 00 8D 77 92 EE 78 92 AD 
9368- 78 92 CD 72 92 F0 03 4C 
9370- E3 92 60 


60368 FOR I = 1 TO GN 

60370 X = GHCI)D + XO:Y = YO - GG(I) 
60372 IF GO = 1 THEN 60380 

60374 IF GO = 4 THEN 60386 

60376: tHPEOT.X © LV =: 1, FOX + LV ri 


3 MACHINES 
POUR LE PRIX D’UNE SEULE 





UNE IMPRIMANTE 
Qualité courrier 
UNE MACHINE A ECRIRE 


Avec marguerites interchangeables PERS 


UN TERMINAL émission/réception 


Avec clavier français pour la rentrée des données VOTRE APPLE 


T.F. SYSTÈMES propose toute lo gamme UNDERWOOD- 


OUVETT interfacée pour votre APPLE depuisl'UNDERWOOD TOTALE FORMATION 
3000 5000 F HT. avec interface jusqu'à l'UNDERWOOD 7500 TE. SYSTEMES 


72000 F HIT. avec interface. 14, avenue Charles-de-Gaulle 92200 Neuilly - Tél. 745.62.73 
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Créez des commandes automatiques 


La petite routine en assembleur pré- 
sentée ici doit vous permettre, lors- 
que vous travaillez en mode 7’immé- 
diat”, d'exécuter rapidement une 
série de commandes (telle que 
TEXT : HOME : POKE 33,33 : LIST) 
ou de générer des ‘’macro-instruc- 
tions” en BASIC lors de l'écriture 
d'un programme (par exemple D$= 
CHR$(4):D1$ = CHR$(13) + DS : 
PRINT DI$"OPEN FICHIER. S6, 
D1”). 


Pour ce faire, on constitue une table 
de codes-commande (stockée de 
$9500 à $9600) comportant pour 
chacun d'eux : 


— un code sur 1 caractère (un carac- 
tère du clavier accepté par la fonc- 
tion ASC, sauf ESC) 


— une adresse sur 2 octets renvoyant 
au libellé de la commande corres- 
pondante, les libellés étant pour leur 
part stockés en dessous de $9500. 


Le programme en Applesoft CRE- 
COM a pour but la création de ces 
tables de codes et libellés. Il vous de- 


— le libellé (255 caractères au plus) 


— le statut de votre commande vis-à- 
vis du RETURN: un RETURN à la 
fin provoque l'exécution immédiate 
de la commande si elle est possible, 
alors que labsence de RETURN 
vous permet de poursuivre l'entrée 
au clavier à la suite du libellé affiché. 


Vous pourriez par exemple créer le 
tableau suivant : 


1 CATALOGDI1 (et RETURN) 
2 CATALOGD2 (et RETURN) 


3 HOME:POFKE 33,33:LIST sans RE- 
TURN, afin de spécifier le numéro de 
la ligne à lister. 


En fin de saisie, vous préciserez le 
nom sous lequel vous désirez que 
votre tableau soit sauvé sur disquette 
(COM pour l'exemple fourni sur la 
disquette d'accompagnement). Il est 
ainsi permis de constituer, sous des 
noms différent, plusieurs tableaux 
de commandes en fonction de leur 
utilisation (instructions ‘’mode-immé- 
diat”, programmation …..). 


Gérard Michel 


Pour utiliser ensuite les commandes, 
il faut changer l'adresse de la routine 
d'entrée de caractères, afin de faire 
’transiter” ceux-ci par la routine 
COM.OB] qui débute en $300. Pour 
cela, chargez la routine par BLOAD 
COM.OBJ puis tapez POKE 56,0 : 
POKE 57,3 : CALL 1002. 


Vous pouvez maintenant charger 
votre tableau de commandes 
(BLOAD COM par exemple). Par la 
suite, si vous voulez changer de ta- 
bleau, il suffira de le lire par BLOAD. 


RESET remet les adresses à leurs va- 
leurs initiales (entrée standard). 


Pour appeler une commande, il faut 
taper CTRL:-A, suivi du code corres- 
pondant. Si deux commandes ont le 
même code, la routine renverra la 
première qu'elle rencontre {la pre- 
mière créée). Si le code n'existe pas, 
la main vous est rendue et le pro- 
chain RETURN provoquera une 
SYNTAX ERROR. 


Enfin. si vous tapez ESC juste après 





Es : 5 CTRL-A, la liste complète des codes 2 
Des een L'adresse de début des libellés afti- et libellés sera affichée, avec interrup- co 
— le code (un RETURN à vide si- chée par CRECOM vous permettra tion du défilement par CTRL-S si né- 
gnale la fin de la procédure de saisie de fixer le HIMEM avant de charger cessaire et reprise de ce dernier par 
des tables) les commandes en mémoire. la frappe d’une touche quelconque. 
Programme CRECOM HEN ZS = “*: GOTO 41 
43 IF ASC (AS) = 8 THEN 2$ = LEFTS (2 
$S, LEN (ZS) - 1): GOTO 41 
44 IF LEN {2S) = 255 THEN AS = CHRS ( 
8): PRINT AS:: GOTO 43 
1 REM CREATION DE TABLES DE 45 2$S = 2$ + AS: GOTO 41 
2 REM COMMANDES AUTOMATIQUES 46 IF ZS = ‘‘‘" THEN 40 
3 REM CAPPLESOFT) 48 INPUT "RETURN A LA FIN ? “";RS* IF RS 
4 REM SSSSSSSEeRSSESE==SSuzus < > ‘“O'" AND RS <« > ‘'N’' THEN 48 
50 DC = DC - LEN (ZS$) - 1:HB = INT (DC 
S HIMEM: 25000 / 256):LB = DC - 256 * HB: POKE 
10 I = 1:AC = 38144:DC = 38143 AC, ASC (CS) + 128: POKE AC + 1,L 
20 PRINT ‘COMMANDE NO ‘I: PRINT : INPUT B: POKE AC + 2,HB:AC = AC + 3 
"CODE COMMANDE : "“;CS: IF CS = *“ 60 FOR J = 1 TO LEN (2$):Z = ASC { MI 
“ THEN 80 DS (ZS$S,J,1)} + 128: POKE DC + J - 
30 IF LEN (CS) > 1 THEN 20 1,2: NEXT :F - 254: IF RS = *“O°* 
35 REM N’UTILISEZ PAS LA ‘“->* POUR REL: THEN F = 255 
IRE DES CARACTERES, MAIS RETAPEZ 70 POKE DC + J - 1,F:I1 = I + 1: IF I < 
LES. LA ‘‘<-" EST AUTORISEE. = 85 THEN 20 
40 PRINT "LIBELLE COMMANDE : ‘;: HTAB 2 80 PRINT : INPUT "NOM DU FICHIER : ‘;FS 
O:2S = “* 90 POKE AC,255:L = 38400 - DC:DS = CHR 
41 GET AS: PRINT AS;: IF ASC (AS) = 13 $S (4): PRINT DS'"BSAVE"FS"*,A"DC",L 
THEN 46 “L: PRINT "ADRESSE DEBUT LIBELLE= 
42 IF ASC (AS) = 8 AND LEN (25) = 1 T “DC: PRINT “ADRESSE FIN CODE="‘"AC 
D  _ _ _* 
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COM.SCE 


Lisa 1.5 

À EHHRHBEHHHEHHE 

2 :# + 

3 :# CUMMNDES AUTOMATIEUSS + 

à :s CODE OBJET = COM, OBT + 

S :# + 

5 HEAR 

7; 

8 CRE $500 

JAN EPI 5% :STOCKE CODE ENTRE AU CLAVIER 

10 TOUN ERH 89500 : TABLE DES CODES -CIPPANDE 

11 ADCON EPZ $7 ADRESSE LIBELLE COMMANDE 

12 COUT  EBU $fD€D 

13 IN Eu $200 :BIFFER D’ ENTREE 

14 50 JSR $FD1B *KEYIN =) SAISIE CARACTERE 

15 CP #$B1 » CTRL-A ? 

16 BNE 51 

17 LDA #i 

18 STA ESC 

19 JP 50 

20 St LDY ESC 

21 CPY #1 

2 BSD 55 «CODE APRES CTRL-A 

23 52 RTS 

24 53 LDY #0 

25 STY ESC 

2 CP #49 ESC ? 

27 BNE S40 

28 JSR $FDSE ‘ENVOIE UN RETURN 

29 LDX 40 

30 R2 LDA TCEM, X 

3i CP #4FF :FIN TRRE DES CODES 7? 

32 BER 

su JSR COUT AFFICHE LE CODE 

34 LDA #$A0 "SUIVI DE DEUX BLANCS 

35 JSR COUT 

36 JSR COUT 

37 INX 

38 LDA TCOM,X ADRESSE DU LIBELLE 

39 STA ACCOM 

40 INX 

hi LR TCOM, X 

42 STA ADCDK+1 

43 LDY #0 

44 RO LDA (ADCGM), Y 

45 CHP 8$FE FIN DU LIBELLE ? 

46 BCS Ri 

47 JSR COUT ‘AFFICHE LE LIBELLE 

48 INY 

49 JF RO 

90 R1 JSR $FDŒÆ 

sl INX 

52 J6 R2 

S R3 LDA #$8D 

% LDX #0 

5 RTS 

%6 S40 STE CLR 
AOSRRRSRNES 


57 S$  LDR TCOM,Y 
s OP CLAW 
B BED S5 

60 DP 8FF 
gi BED 52 

62 INY 

63 INY 

64 INY 

65 JP 54 
66S5 IN 

67 LOA TCOM,Y 
64 STA ADCON 
69 INY 

70 LDA TCOM, Y 
ñ STA ADCD1 
72 LDY #0 
73S6 LDA (ADCOM),Y 
7è CP WF 
TS BEQ 57 

76 OP HE 
77 BED 58 

78 STA IN,X 
m IX 

80 JSA COUT 
gi IN 

82 3 
8357  LDA #$8D 
gé RTS 

85 58  LDA #$n0 
86 RTS 

87 ESC DFS $1 

88 DCN “INT 
89 ED 


0300- 
0308- 
0310- 
0318- 
0320- 
0328- 
0330- 
0338- 
0340- 
0348- 
0350- 
0358- 
0360- 
0368- 
0370- 
0378- 
0380- 
0388- 
0390- 
0398- 


:CHERCYE LE CODE DANS LA TABLE 


AFFICHE LIBELLE ET LE 
:STOCKE OANS BUFFER D'ENTRÉE 


AS 
AC 
AO 
3E 
95 
A9 
E8 
00 
cg 
ac 
25 
06 
C9 
60 
ca 
B1 
FO 
FD 
A9 
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Gestion de compte bancaire 


L'entrée d’un ordinateur personnel 
dans la famille n'est pas toujours 
chose aisée et le prix de l'appareil 
doit parfois trouver sa justification” 
au travers de quelques utilisations 
dites ”’sérieuses” : tenue des comptes 
familiaux, gestion de la bibliothèque, 
préparation des menus selon les inw- 
tés … 


Le programme que je vous propose 
a pour but de vous aider à tenir vos 
comptes bancaires, tout en vous per- 
mettant d'exercer vos talents en Ap- 
plesoft par l’ajout éventuel de sous- 
programmes de votre choix. 


Tout d'abord, il ‘vous faudra définir 
les comptes concernés (numéros et 
libellés) : reportez-vous pour cela aux 
zones du programmes commençant 


respectivement aux lignes 1200 et 
q0800. 


Ensuite, les opérations automatiques 
doivent être définies en DATA entre 
les lignes 20502 et 20700 sous la 
forme AA,BB.CC,DDEE, avec : 


AA : numéro du compte concerné 
BB : année-mois du premier mois 
CC : année-mois du dernier mois 
DD : libellé de l'opération 


EE : montant de l'opération 


Ainsi une ligne telle que 20504 
DATA 031207, 8207, 8306, TELE- 
PHONE;,-320 aura pour consé- 
quence un débit automatique de 320 
francs au compte numéro 031207 
pour chaque mois de juillet 1982 à 
juin 1983. 


Une fois ces paramètres fixés et le 
programme sauvé sous sa version 
utilisable, vous pouvez en lancer 
l'exécution. 


Il vous demandera tout d’abord le 
numéro du compte sur lequel vous 
désirez travailler. Répondre par un 
"?” à cette question permet d'obtenir 
le rappel des comptes connus du 
programme. 


Deuxième information à fournir: la 
période de traitement (mois et 
année). Notons ici que le programme 
utilise un fichier distinct par compte 
et par période (le nom d'un tel fi- 
chier se compose du libellé du 
compte, complété par le mois et l’an- 
née concernés) Chaque mois peut 
enregistrer un maximum de 99 opé- 
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rations. Si le fichier correspondant à 
la période indiquée existe, il est lu en 
mémoire dans le tableau TBf,; sinon, 
le programme vous permet de le 
créer (ce sera le cas notamment lors 
de la première utilisation). 


L'écran vous servira ensuite de fenê- 
tre pour la saisie et l'affichage des 
opérations. 


La dernière ligne constitue le niveau 
de saisie des commandes, que nous 
allons maintenant examiner plus en 
déta. 


1) Flèche à droite (—): permet de 
descendre la fenêtre d’une ligne. 


2) Flèche à gauche (+) : permet de 
remonter la fenêtre d’une ligne. 


3) Plus {+}: permet d'afficher les 20 
lignes suivantes, 


4) Moins (—): permet d'afficher les 
20 lignes précédentes. 


5) A: 
lignes. 


ajout de une ou plusieurs 


Cette commande provoque laffi- 
chage en haut de l'écran de la der- 
nière ligne du tableau et le position- 
nement du curseur en tète de la 
première ligne blanche qui suit. Vous 
pouvez alors saisir vos opérations. 
sous la forme suivante : 


e date de l'opération: un nombre 
de 00 à 31 


e libellé de l'opération (15 caractè- 
res maximum) 


® numéro du chèque (7 chiffres sans 
RETURN). Si ce numéro est égal 
au précédent donné augmenté de 
1, tapez ”’:” en tête de la zone de 


saisie. 


Si l'opération ne porte pas sur un 
chèque où autre mouvement ”’nu- 
méroté”, tapez simplement RE- 
TURN sur cette zone. 


® montant de l'opération, précédé 
du signe ”-—" si c'est un débit (la 
décimalisation est donnée par le 
point et non la virgule). 


Vous indiquez la fin de la saisie en 
tapant ”F” à la place de la date 
d'opération. 

6) C: correct.on d’une ligne. 


Cette commande doit être suivie du 


Dominigue Compère 


numéro de la ligne à corriger. en tête 
de laquelle le curseur viendra alors 
se placer. Si un élément est à modi- 
fier, entrez la nouvelle valeur en res- 
pectant les règles de la commande A. 
sinon, tapez RETURN pour passer à 
l'élément suivant. 


7} S : suppression d'une ligne. 


Donnez, comme ci-dessus, le numéro 
de la ligne concernée. Si cette der- 
nière existe, il vous sera demandé 
confirmation de l'annulation. 


8) T: Totalisation jusqu’à une ligne 
incluse. 


Donnez le numéro de la dernière 
ligne à prendre en compte et le pro- 
gramme vous répondra par le solde 
résultant des opérations enregistrées 
de la première ligne jusqu’à celle-ci. 
Appuyez ensuite sur nimporte quelle 
touche pour revenir au niveau des 
commandes. 


9) V: rapprochement avec le relevé 
mensuel de la banque. 


Après la frappe de la commande, en- 
trez le numéro du chèque (7 chiffres 
sans RETURN ou moins de 7 chiffres 
et RETURN). Si le chèque a bien été 
enregistré, le programme vous en 
donne le montant et vous demande 
de confirmer (O ou N). Si le chèque 
ne peut être retrouvé, ou s'il a déjà 
été vérifié, un message d'anomalie 
est émis. 


S'il s’agit d'une opération ‘’sans nu- 
méro”, entrez un 0” suivi de RE- 
TURN. Le programme vous propo- 
sera des montants correspondant à 
ce type d'opération {répondez N 
pour continuer la recherche et © si 
vous avez trouvé). 


Tapez F pour terminer la vérification. 


10} N: 
mois. 


ouverture d'un nouveau 


Après confirmation de la commande, 
le programme réalise les traitements 
suivants : 


— calcul du montant à reporter sur le 
mois suivant 


— sauvegarde sur disquette du mois 
en cours 


— remise à blanc du tableau en mé- 
moire 


— ouverture d'un nouveau mois 
(avec report) 
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— enregistrement éventuel des opé- 
rations automatiques. 


Un contrôle est fait sur l'existence du 
nouveau fichier dont je nom est dé- 
duit de celui du mois en cours. Si le 
fichier existe déjà, le programme 


solde calculé est abandonné au profit 


du sien. 


15} F: fin du programme. 


_ sauvegarde sous un nouveau nom 
+ VERIFY 


- destruction de la version précé- 
dente 


— RENAME de la nouvelle version. 


Cette commande entraîne la sauve- 





vous demande sil doit en tenir garde sur disquette du fichier en est indispensable de ne pas chan- 
compte ou, au contraire. le détruire. cours. Ceci s'effectue en trois  ger de disquette entre le début et la 
Si le fichier existant est conservé, le étapes fin du programme ! 
Programme GESCOMPTE 540 VTAB 11 
545 L2$ = "PERIODE DU MOIS * + DES + MOI 
S REM GESTION COMPTE BANCAIRE S$ + * “ +  STRS (AA) 
6 REM (CAPPLESOFT) 550 HTAB (39 - LEN (L2S)) / 2: PRINT L 
7 REM SESRANEESESS=Z=ESSS=E===S= 25 
560 DSN$ = LIBELLES + MOISS + “ * + STR 
55 NB = O0: REM NB ENREG LUS $ CAA) 
60 DEF FN Z(Z) = € INT (€Z » 100) + .0 | 570 VTAB 20: HTAB 3 
50)) / 100 580 PRINT “ETES-VOUS D’ACCORD ?* 
70 DIM TBS(100): REM TABLEAU 530 VTAB 22: HTAB 4 
75 GOSUB 1600: REM TAB.MOIS 600 PRINT “ENTREZ O (OUI) OÙ N (NON) == 
76 TEXT : HOME > “;: GET AS 
77 GOSUB 100: GOTO 360 610 PRINT AS: GOSUB 1300 
80 REM 612 IF AS = “N"“ THEN 370 
90 REM 614 IF AS < > “O" THEN 590 
95 REM + TRACE LE CADRE « 630 VTAB 12: HTAB 1: CALL - 98: VTAB 1 
100 REM 4:L2$S = “(CHARGEMENT DU FICHIER)“ 
110 LS = “sssssssesesssesssesesesssssssssz:e | 660 HTAB (339 - LEN (L2$S)) / 2: PRINT L 
fosses 2$ 
120 MS = “:": INVERSE 670 L2S = + 
130 VTAB 1: HTAB 1: PRINT LS; 680 GOTO 2000 
140 VTAB 3: HTAB 1: PRINT LS: 800 REM 
150 VTAB 24: HTAB 1: PRINT LS; 804 REM # ECRITURE» 
160 VTAB 2: HTAB 1: PRINT MS:: VTAB 2: 806 REM 
HTAB 39: PRINT MS; 810 PRINT : PRINT DS:"OPEN “;DSNS 
170 FOR VH = 4 TO 23: VTAB VH: HTAB 1: 815 PRINT DS;"WRITE “;DSNS 
PRINT MS:: VTAB VH: HTAB 39: PRIN | 820 LET NS = NB 
T NS:: NEXT UH 825 IF NB < 1 THEN 900 
300 X = FRE (O0): VTAB 2: HTAB 2: INVERS | 827 IF NS = 1 THEN PRINT NS: PRINT TB$ 
E : PRINT “ GESTION DE VOTRE CO (O): GOTO 875 
MPTE BANCAIRE ‘“: NORMAL 830 FOR I = 1 TO NB - 1 
320 POKE 34,3 835 IF LEN (TBS(I)) = O THEN NS = NS - 
330 POKE 33,37: REM LARGEUR 1 
340 POKE 32,1: REM MARGE GAUCHE 840 NEXT I 
350 POKE 35,23: REM BAS ECRAN 845 IF NS < 1 THEN 300 
352 RETURN 847 IF NS = 1 THEN 827 
355  REM 850 PRINT NS 
360 REM + DEMANDE IDENTIF. »* 855 FOR I = O TO NB - 1 
370 HOME : VTAB 5: HTAB 5 860 IF LEN (TBS(I)) = O THEN 870 
380 INPUT ‘NUMERO DU COMPTE = “;NCPTS: 865 PRINT TBS(I) 
IF NCPTS = “?“ THEN 40000 870 NEXT I 
390 GOSUB 1210: IF RC = 1 THEN VTAB 5: | 875 PRINT DS;"CLOSE “;DSNS 
HTAB S: CALL - 868: GOTO 380 830 RETURN 
400 VTAB 23: HTAB 1: CALL - 868 300 REM == ERREUR : NB < 1 
410 VTAB 9: HTAB 4 305 REM 
430 INPUT “PERIODE TRAITEE (MM,AA) = *; | 910 TEXT : HOME : INVERSE 
MMS,AAS 920 PRINT : PRINT “ERREUR : NB = “:: FL 
440 GOSUB 1400: IF RC = 1 THEN VTAB 9: ASH : PRINT NB: NORMAL 
HTAB 1: CALL - 868: GOTO 410 330 STOP 
480 REM 1200 REM 
490 REM +* NOM DU FICHIER * 1210 REM #»* CONTROLE IDENTIF # 
S00 HOME : VTAB 7: HTAB S 1215 LET RC = O: REM CODE RETOUR 
510 PRINT “COMPTE “;LIBELLES;" NUMERO * | 1220 IF NCPTS = “1229006” THEN LIBELLES 
;:: INVERSE : PRINT NCPTS;: NORMAL "BNP “+: RETURN 
: PRINT “.": 1225 IF NCPTS = "021683" THEN LIBELLES 
520 DES = “DE *“ = ‘“BPROP “: RETURN 
530 IF MM = 8 OR MM = 10 THEN DEs = “D | 1230 IF NCPTS = "015927" THEN LIBELLES 
” 2 “’P.E.L. *: RETURN 
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1260 VTAB 23: HTAB 3 

1270 CALL - 1052: PRINT ‘NUMERO DE COM 
PTE ‘*;: FLASH : PRINT NCPTS:: NOR 
MAL : PRINT ‘ INCONNU."': 

1280 LET RC = 1: GOSUB 1300: GOSUB 1300 
: RETURN 

1300 REM 

1310 REM #* WAILT = 

1320 FOR WA = 1 TO 300: NEXT WA 

1330 RETURN 

1350 FOR WA = 1 TO 30 

1360 AA = PEEK € - 16336) 

1370 NEXT WA 

1380 AA = FRE (CO): RETURN 

1400 REM 

1410 REM # CONTROLE DE DATE * 

1430 LET RC = O 

1440 AA = VAL CAAS)D:MM = VAL (tfMS) 

1450 IF AA < 80 OR MM < 1 OR MM > 12 TH 
EN RC = 1: VTAB 23: HTAB 93: PRINT 
* DATE ‘“:: FLASH : PRINT MMS:" ‘ 
AAS;: NORMAL : PRINT ‘ ERRONEE." 
5: CALL - 1052: GOSUB 1300: GOSU 
B 1300: RETURN 

1460 IF AA < 1900 THEN AA = AA + 1900 

1470 MOISS = TMS(MM) 

1490 RETURN 

1600 REM 

1610 REM #* TABLEAU DES MOIS « 

1620 DIM TMS(12) 

1630 TM$S(1) = “JANVIER'":TMS(2) = "“FEVRIE 
R"° 

1635 TMS(3) = ‘"MARS'"":TMS(4) = "AVRIL" 

1640 TMS(5) = “MAIL":TMS(C6) = ‘JUIN 

1645 TM$S(7) = "JUILLET":TMSC8) = ‘"AOUT" 

1650 TMS(9) = “SEPTEMBRE":TMS(10) = “OCT 
OBRE" 

16535 T#S(11) = ‘"NOVEMBRE":TMS(12) “DEC 
EMBRE"* 

1660 RETURN 

1700 REM 

1705 REM * TRAITEMENT FINAL « 

1710 TEXT : HOME : GOSUB 95 

1720 L1S = “SAUVEGARDE DU MOIS": VTAB 12 
: HTAB (40 - LEN (L1S)) / 2 

1730 PRINT L1S: PRINT 

1740 GOSUB 7000 

1750 HOME 

1760 LS = “AUTRE TRAITEMENT ? CO/N)D'": V 
TAB 12: HTAB (40 - LEN (L1S)} / 
2: PRINT L1s 

1770 PRINT : HTAB 17: PRINT "=> ‘;: GET 
AS 

1775 IF AS = ‘“N" THEN 215S5S 

1780 IF AS < > “O" THEN 17S0 

1785 X = FRE (O) 

1790 FOR I = 1 TO NB 

1810 TBS(I) = “" 

1820 NEXT I 

1830 HOME : GOTO 360 

2000 RENM 

2010 REM # RECHERCHE FICHIER # 

2020 OONERR GOTO 2100 

2030 LET DS = CHRS (4) 

2040 PRINT : PRINT DS:'"VERIFY ‘“:DSNS 

2050 POKE 216,0 

2060 GOTO 2200 

2070 REM 

2100 CALL - 9S8: PRINT : HTAB 12: PRIN 
T “FICHIER INCONNU.‘": GOSUB 1350: 
GOSUB 1350: GOSUB 1350: POKE 216 
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2140 


21355 


2160 


2167 
2168 
2170 


2172 
2174 


2176 


2178 
2180 


2200 
2210 
2230 
2240 
22350 
2260 
2270 
2273 


2280 
2290 
2293 
3000 
3010 
3020 
3040 
3050 


3060 


3070 


3080 


3090 
3100 
3110 


3120 


3130 


3140 


3150 
3160 


3170 


3180 
3200 
3210 
4000 
4010 
4012 
4013 
4015 
4020 


0: GOSUB 1300: PRINT 
PRINT “ VOULEZ-VOUS LE CREER ? 
O OU N) “;: GET AS 
IF AS = “N* THEN TEXT : HOME : VT 
AB 12: HTAB 16: PRINT\"F I N°: VT 
AB 23: HTAB 39: END 
IF AS < > “O“ THEN VTAB 19: GOTO 
2140 
REM 
REM <<<<<CREATION VIDE>>>>> 
HOME : VTAB 5: HTAB 5: INPUT “REPO 
RT = “;AS 
IF VAL (CAS) < O THEN 2170 
SO = VAL (AS):50 = FN Z(SO): GOSU 
B 9000 
VTAB 5: HTAB 14: PRINT S0OS;: GOSUB 
1300 
MMS = RIGHTS ("“O0"” + MMS,2) 
TBS(O) = MAS + 
“* + SOS:NB = 1: GOSUB 2 
0000: PRINT : GOSUB 800: GOTO 300 
(o) 
REM 
REM #* CHARGE LE MOIS EN MEMOIRE + 
PRINT DS;"OPEN ‘;DSNS " 
PRINT DS;"READ ‘;DSNS 
INPUT NB à 
FOR-I =-«0:TO NB — 1 2 
INPUT TBS(I) ; 
LET R1S = MIDS (TBS(I),25,7): IF 
VAL CR1S) > 99 THEN R1 = VAL CR | 
15) . 
NEXT I ". 
PRINT DS;"CLOSE “;DSNS re 
LÉT CL 
REM 7 
REM #* PROGRAMME PRINCIPAL « 5 
TEXT : HOME :CL = 1 
GOSUB 11000 
AÏS ES ADS =, PAS AZ IE OS GET ALS: 
+ PRINT A1S;" *; 
IF ASC (CA1$) = 21 THEN CL = CL + 
1: GOTO 3040 
IF ASC (A1S) = 8 THEN CL = CL - 1 
: GOTO 3040 
GET AS: IF ASC (AS) > 21 THEN A2S 
= A2$ + AS: PRINT AS;: GOTO 3080 
IF ASC (AS) < > 13 THEN 3640 
LET A2 = VAL (429) 
IF A1S = “A THEN GOSUB 6000: GOT 
CO 3040 
IF Ads "+" THEN CL = GL-+-20: 60 
TO 3040 
IF ALS +, "=" THEN'CL = CLis 20: GO 
TO 3040 
IF A1$ = ‘“S“ THEN GOSUB 4000: GOT 
O 3040 
IF A1$ = ‘“F” THEN GOTO 1700 
IF A1$ = “T* THEN GOSUB 9500: GOT 
O 3050 
IF A1$ = “V“ THEN GOSUB 7500: GOT 
O 3040 
IF AS = “N“ THEN GOTO 8500 
IF A1$ = ‘’C“ THEN GOSUB 4500 
GOTO 3040 
REM 
REM #* SUPPRESSION #* 
GOTO 4150 
REM 
GOSUB 5600 
L2$ = “CONFIRMEZ SVP (O/N)°":L3S = * 


| 
15 


16 


SUPPRIME": GOSUB 5500 
4030 VTAB 3: HTAB 1 
4050 GET AS: IF AS < > ‘"O“ THEN GOSUB 
1350: GOSUB 5600: RETURN 
4060 CALL - 868 
4070 TBS(CL) = ‘*‘*: GOSUB 5600 
4080 FOR I = 1 TO NB - 1 
4090 IF LEN (TBS(I); > O THEN 4120 
4100 TBS(I) = TBSCI + 1):TBSÇCI + 1) = " 
4120 NEXT :ï 
4130 NB = NB - !1 
4140 RETURN 
4150 REM 
4160 IF VAL (A2S) < 1 THEN 4200 
4170 CL = VAL CA2S$): IF CL > {NB - 1) T 
HEN GOSUB 1350: GOSUB 5600: RETU 
RN 
4180 GOSUB 11000: VTAB 3: HTAB 1: GOTO 
4013 
4200 REM 
4210 L2$ = ‘NUMERO DE LIGNE (NN) : ‘“: GO 
SUB 5500: INPUT ‘’‘“;:A2$S: GOTO 4160 
4500 REM 
4502 REM rCORRIGE"# 
4510 L3S = “CORRIGE‘": GOSUB 5500 
4512 C = VAL (CA2$): IF C > O THEN 4540 
4520 L2$ = “LIGNE (NN) : “: GOSUB 5500 
es 4530 GET AS: PRINT AS:: GET BS: PRINT 8 
He S::CS = AS + B$S:C = VAL (CS) 
4540 IF C < 1OR C > NB - 1 THEN GOSUB 
1350: GOSUB 5600: RETURN 
4570 CL = C: GOSUB 11000 
4590 LET JOS = “"“:LIS = "":NUS = ‘"“":50S 
4600 JOS = LEFTS (TBS(CL),2):LI$S = MID 
S (TBS(CL),4,15):NUS = MIDS (TBS 
(CL),25,7):S50$S = MIDS (TBS(CL),3 
2,93) 
4610 LC = 3: GOSUB 22000 
4620 IF AS < > ‘’00* THEN JOS = AS 
4630 IF BS < > " ‘’ THEN 
LIS = BS$ 
4640 IF CS < > “O000000' THEN NUS = CS 
4650 IF D « > O THEN SO = D: GOSUB 900 
O 
4740 TBS(CL) = JOS + “" "4 LIS + “" "4 
“* + NUS + SOS 
4750 GOSUB 5600 
4760 RETURN 
5500 REM 
5510 REM # MESSAGE/COMMANDE « 
5560 VTAB 2: HTAB (40 - LEN (L3S)} / 2 
: FLASH : PRINT L3$:: NORMAL 
5570 L3S = ‘*" 
5580 VTAB 24: HTAB 1: PRINT “==> ‘;:L2S: 
SS8S L2S = *" 
5590 RETURN 
5600 VTAB 2: HTAB 1: CALL - 868 
5610 VTAB 24: HTAB S: CALL - 868: VTAB 
24: HTAB 38: INVERSE : PRINT NB 
= du 
5620 NORMAL : VTAB 24: HTAB 4: RETURN 
6000 REM 
6002 REM + AJOUTER UNE LIGNE *» 
6015 L2$S = “ENTREZ L’OPERATION <OU F)“:L 
3$S = “AJOUT‘: GOSUB 5500 
6030 CL = NB - 1: GOSUB 11000 
6040 LC = 4; VTAB LC: HTAB 1: GOSUB 2200 
O 
6050 IF WS = ‘“F‘* THEN GOSUB 5600: RETU 
RN 
ASE 





6090 


6300 


6310 


6320 
6330 
7000 
7020 


7030 
7040 
7050 
7060 
7070 
7500 
7505 
7510 


7515 
7520 
7522 
7525 
7530 
7540 
7545 
7550 
7560 
7570 
7580 
7600 
7610 
7615 
7630 
7640 
7645 
7650 


7660 


7700 


8500 
8505 
8510 
8515 
8520 


8530 


8535 


8540 


8550 
8559 


L2S = 


CS = 


TBS(I) = 


JOS$S = AS:LIS = BS:NUS = CS:SO = D: 
GOSUB 3000 
TBS(CL + 1) = JOS + “ “ + LIS + “ * 
+ DC " + NUS + S0S 
NU = VAL <CNUS): IF NU > 100 THEN R 
1 = NU 
LET NB = NB + 1: GOTO 6030 
RETURN 
REM »* ECRITURE DU MOIS #* 
WDS = DSNS:DSNS = DSNS + ".T'"':DS = 
CHRS (4) 
GOSUB 800: REM ECRIT. 
PRINT DS"VERIFY ‘; DSNS 
PRINT DS'"DELETE ‘;:WDS 


PRINT DS"RENAME ‘" :DSNS:",";VwDS 
RETURN 

REM 
REM # VERIFICATIONS #* 
“ENTREZ NUM.CHEQUE : 


GOSUB 5500 


":L3S = 
“VERIFIE": 


CS = 


FOR I = 

GET AS 
IF AS = 
RN 

IF ASC (AS) = 


1 °TO "7 


“F" THEN GOSUB 5600: RETU 
13 THEN CS = RIGHT 
S (‘0000000 + CS,7): GOTO 7560 
IF ASC {AS) < 48 OR ASC (AS) > 5 

7 THEN GOSUB 1350: GOTO 7510 

CS + AS: PRINT AS; 

NEXT I 

FOR I = 1 TO NB - 1 

IF MIDS (TBS(I),25,7) = 
610 

NEXT I 

GOSUB S600:L2$ = “NON TROUVE‘": GOS 
UB 1350: GOSUB S500: GOSUB 1350: 
GOSUB 1300: GOTO 7510 


CS THEN 7 


IF MIDS (TBS(I),24,1) = “V" AND C 
S = “O000000" THEN 7580 

IF MIDS (TBS(I),24,1) = “V" THEN 
7700 

GOSUB S6O00:L2$S = MIDS (TBS(I),32, 
92 + “ ? CO/N) : ‘: GOSUB 5500: G 
ET AS 

IF AS = “N'" THEN 7580 


IF AS < > “O" THEN 7630 
LEFTS C(TBS(1I),23) + 
MIDS (TBS(I),25,16) 


eye + 


GOSUB S6O0:L2$S = “OK": GOSUB 5500: 
GOSUB 1300: GOSUB 1300: GOTO 7S1 
O 
GOSUB S6O00:L2$S = ‘“DEJA VERIFIE": G 
OSUB 1350: GOSUB 5500: GOSUB 1350 
: GOSUB 1300: GOTO 7510 
REM 
REM + CHANGEMENT MOIS * 
REM 
TEXT : HOME 
GOSUB 9S:L1S = “AVEZ-VOUS D’AUTRES 
OPERATIONS": VTAB 10: HTAB (38 - 
LEN (EL1$)) / 2: PRINT LIiS: PRIN 
T: 
Li$S = “A AJOUTER AU MOIS EN COURS ? 
“: HTAB (38 - LEN (L1S)} / 2: PR 


INT L1S: PRINT 


VTAB 14: CALL - 868 

HTAB 17: PRINT “=> “;: GET AS: PRI 
NT AS$S;: IF AS = “C"* THEN 3050 

IF AS < > ‘“N'" THEN 8535 

REM 
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8560 REM CALCUL REPORT MOIS 11015 REM 


8561 REX 11030 POKE 35,23: POKE 34,2: POKE 33,40 
8565 LET TT = O : POKE 32,0 
8570 FOR I = O TO NB 11040 VTAB 1: HTAB ((4O - LEN {DSNS)) 
8580 T1 = VAL © MIDS (TBS(I,32,9)):T2 / 2): PRINT DSNS 
= FN Z(T1) 11050 IF CL < 1 THEN CL = 1 
85930 TT = FN Z(TT) + T2 11110 IF CL > (NB - 1) THEN CL = NB - 1 
8600 NEXT I 11115 LET C2 = CL: REM SAUVE CL 
8610 REM 11117 IF NB < 1 THEN 11180 
8611 REM SAUVE MOIS EN COURS 11120 FOR EC = 3 TO 22 
8612 REM 11130 VTAB EC: HTAB 1: PRINT TBS(CL); 
8615 PRINT : PRINT : HTAB 15: PRINT TT 11135 IF CL = NB THEN 11150 
8620 GOSUB 7000 11140 VTAB EC: HTAB 22: INVERSE : PRINT 
8640 REM RIGHTS (“O0 + STRS (CL),2):: N 
8650 REM ORMAL 
8651 REM R.A.Z MOIS EN MEMOIRE 11150 LET CL = CL + 1: IF CL > NB THEN 
8652 REM CL = ifB: CALL - 958 
8660 FOR I = 1 TO NB:TBS(I) = ‘': NEXT 11160 NEXT EC 
I 11170 VTAB 24: HTAB 38: INVERSE : PRINT 
8665 LET NB = 1 RIGHTS (“O" + STRS (NB - 1),2) 
8670 REM 5: NORMAL 
8671 REM CHANGE NUMERO MOIS 11180 VTAB 24: HTAB 1: PRINT “=> *: 
8672 REM ET REPORT CALCULE. 11190" LET.CL =:C?2 
8673 REM 11200 RETURN 
8680 MM = VAL (MMS):AA = VAL (CAAS): IF | 20000 REM 
MM = 12 THEN MM = O:AA = AA + 1 20010 REM # CONSTANTES » 
8630 MM = MM + 1:MMS = STRS (MM):AAS = 20012 REM 
STRS (AA) 20014 LET DS = CHRS (4) 
8700 IF MM < 10 THEN MMS = “O* + MMS 20020 RESTORE 
8710 SO = TT: GOSUB 9000 20030 READ NWS,DAS,DBS,DCS,DDS 
8720 TBS(O) = MMS + ‘ 20040 IF DAS = “OO THEN RETURN 
“ + SOS 20045 IF NWS < > NCPTS THEN 20030 
8730 MOISS - TMS(MM) 20050 CPS = AAS + MMS 
8735 GOSUB 1400: GOSUB 1210 20060 IF CPS < DAS THEN 20030 
8740 DSNS = LIBELLES + MOISS + “ “ + ST | 20070 IF CPS > DBS THEN 20030 
RS (AA) 20080 LET NB = NB + 1 
8745 GOTO 21000 20090 LET LC = LEN (DCS): IF LC > 14 T 
8750 PRINT :HT = (40 - LEN (DSNS)) / 2 HEN DCS = LEFTS (DC$,15):LC = 15 
: HTAB HT: PRINT DSNS: PRINT : GOTO 20130 
8755 GOSUB 20000 20110 DCS = DCS + MIDS (" 
8760 PRINT DS:"OPEN ‘*:DSNS #1%15:.-= LC) 
8770 PRINT D$:"DELETE “:DSNS 20130 50 = VAL (DD#): GOSUB 9000 
8800 GOSUB 800 20140 DDS = S0S 
8850 GOTO 3020 20210 TBS(NB - 1) = ‘“Ol" + * * + DCS + * 
9000 REM . 0000000" + DDS 
9010 REM # SO ===> S0$ #» 20220 GOTO 20030 
9020 SW = FN Z(S0) 20500 REM 
9030 50$ = STRS (SW) 20501 REM CONSTANTES 
9050 SOS = RIGHTS (" * + S0$,9) | 20502 REM 
9060 IF MIDS (50$,7,1) = ‘“.” THEN RET | 20510 DATA 1229006,8301,8310,IMPOTS, -27 
URN 60 
9070 IF MIDS (50$,8,1) = “,"* THEN SOS 20520 DATA 1229006,8209,8412,PEL,-600 
= S0$ + “O"*: GOTO 93050 20700 DATA 00,00,00,00,00 
9080 S50S = S50$ + ‘“.00"“: GOTO 3050 21000 REM 
9500 REX 21010 REM # NOUVEAU EXISTE ? # 
9510 REM + SOLDE = 21020 REM 
9511 IF A2 > NB - 1 THEN A2 = NB - 1 21030 POKE - 16368,0: REM RAZ CLAVIER 
9515 L2$ = “TOTAL APRES LIGNE : ‘“ + A2S: | 21040 ONERR GOTO 21400 
L3$ = "TOTAL": GOSUB 5500 21050 PRINT 
9600 TT = © 21060 PRINT DS:"VERIFY “:DSNS 
9610 FOR B = O TO A2 21070 POKE 216,0: POKE 222,0 
9620 T1 = VAL ( MIDS (TBS(B),32,9)):T2 21080 HOME :L2$S = “LE NOUVEAU MOIS EXIS 
= EN Z(T1): IF T2 = O THEN 9640 TE DEJA."“: VTAB 12: HTAB (4O - L 
9630 TT = FN Z(TT) + FN Z(T2) EN (L2S)) / 2: PRINT L?s 
9640 NEXT 8 21090 PRINT :L2$ = “FAUT-IL LE SUPPRIME 
93650 HTAB 31: CALL - 868 R CO/N) 7": HTAB (40 - LEN (L2S) 
9660 INVERSE : HTAB 31: PRINT FN Z(TT) ) / 2: PRINT L2S: 
;:: NORMAL : GET AS: GOSUB 5600: R | 21110 GET WS: PRINT 
ETURN 21120 IF W$ = “O* THEN GOTO 8750 
11000 REM 21130 IF WS < > ‘N“ THEN 21080 
11010 REM * EDITEUR %* 21150 GOTO 2230 
RE 
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21400 POKE 216,0: POKE 222,0 22210 IF WS = ‘“:" AND HT = 25 THEN GOT 


21410 GOTO 8750 O 22700: REM NUM.CHQ.+1 
22000 REM # SAISIE DE LIGNE # 22220 C$ = CS + WS:HT = HT + 1: IF HT < 
22003 REM 32 THEN 22190 
22025 REM ==== JOUR =-==-= 22230 CS = RIGHTS (*0000000°" + CS,7) 
22030 HT = 1:AS = “” 22240 REM ==== SOMME ===- 
22040 VTAB LC: HTAB HT: GET WS: PRINT W | 22250 HT = 32:DS = “* 
8; 22260 VTAB LC: HTAB HT: GET WS: PRINT W 
22045 IF WS = "“F‘* THEN RETURN 8; 
22050 IF ASC (WS) = 13 THEN 22080 22270 IF W$S = CHRS (13) THEN 22300 
22055 IF ASC (WS$) = 8 THEN 22030 22275 IF ASC (WS) = 8 THEN 22250 
22060 AS = AS + WS:HT = HT + 1: IF HT « 222930 DS = DS + WS:HT = HT + 1: IF HT < 
3 THEN 22040 41 THEN 22260 
22080 AS = RIGHTS (“OO" + AS,2):A = VA | 22300 D = VAL (DS):DS = CHRS (4) 
L CAS): IF A < O OR A > 31 THEN 22330 RETURN 
GOSUB 1350: GOTO 22030 22700 REM 
22030 REM ==== LIBELLE =-==- 22702 REM NUM.CHQ +1 
22100 HT = 4:BS = *" 2270S IF R1 < 100 THEN 22180 
22110 VTAB LC: HTAB HT: GET WS: PRINT W | 22710 Ri = R1 + 1:R1S = STRS (R1) 
S; 22720 CS = RIGHTS (*O0000000" + R1S,7) 
22120 IF ASC (WS) = 13 THEN 22160 22730 VTAB LC: HTAB 25: PRINT CS; 
22125 IF ASC (WS) = 8 THEN 22100 22300 GOTO 22240 
22130 : 40000 REM 
22150 BS = BS + WS:HT = HT + 1: IF HT < 40010 REM LISTE DES COMPTES 
- 19 THEN 22110 40020 REM 
“e 22160 BS = LEFTS (BS + “ 40030 HOME : VTAB 9: HTAB 10 
53 #13) 40050 PRINT ‘'‘'1223006..... BN° à 
= 22170 REM =-==-= NUM.CHEQUE --=-- 40080 PRINT : HTAB 10 
3: 22180 HT = 2S5:CS = “" 40090 PRINT “021683...... BPROP " 
pe 22130 VTAB LC: HTAB HT: GET WS: PRINT W | 40126 PRINT : HTAB 10 
ei S; 40127 PRINT “015927......P.E.L. ® 
#2 22200 IF ASC (WS) = 13 THEN 22230 40130 PRINT : HTAB 20: GET AS 
2 22205 IF ASC (WS) = 8 THEN 22180 40150 GOTO 370 





MODEMS TELSAT 


L’ ACCES DE VOTRE MICRO ORDINATEUR AUX BASES DE DONNEES 
PAR LE RESEAU TELEPHONIQUE 


TELSAT 440 TELSAT 640 
Modem 300 bit/s full duplex Modem 600/1200 bit/s full duplex 


Ces produits font partie de la gamme complète de modems, multiplexeurs et 
équipements de réseaux de transmission de données TELSAT distribués par 


SATELCOM international 69-71rue du CHEVALERET 75013 PARIS 


Tél. 5841476 Telex 204120F 
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Compression d'images HGR 


Je vous propose ici deux petites rou- 
tines en langage-machine qui vous 
pennettront, dans la majorité des cas, 
de réduire la place occupée sur une 
disquette par une image graphique 
en haute résolution. 


La première, IMAGE 1, analyse la 
page graphique où réside l'image 
pour en retirer les données essentiel- 
les. L'analyse se fait par séries de 
256 octets. La routine prend un octet 
et le compare au suivant: s'ils sont 
identiques, elle continue ainsi jusqu’à 
ce qu'elle trouve un octet différent 
ou qu'elle soit arrivé au dernier de la 
série. Dans l'un ou l'autre cas, elle 
stocke alors dans une zone tampon 
l'octet concerné et le nombre de ses 
occurrences consécutives, puis re- 
prend l'analyse. Au tenne de celle-ci, 
la zone tmpon peut être sauvée sur 
disquette. 


La seconde routine, IMAGE 2, utilise 
tout simplement les données de la 


zone tempon pour reconstituer 
l'image dans la page graphique. 


Ü est évident que ces routines ne 
présentent d'intérêt que pour le trai- 


qu 


(y N 
qi 





tement d'images comportant un mi- 
nimum d’'octe# consécutifs sembla- 
bles. À la limite, si tous les octets 
sont différents deux à deux, le résul- 


Philippe Krepper 


tat donné par IMAGE 1 occupera 
deux fois plus de place que l'original! 


Les deux petits programmes en Ap- 
plesoft listés ci-aprés illustrent l'utilisa- 
tion des routines. 


TEST-COMP assure la ‘’compres- 
sion” d'une image et la sauvegarde 
du résultat (sous le même nom que 
l’otiginal suivi de -COMP). En fin de 
traitement, il affiche le nombre d’oc- 
tets occupés par la zone tampon 
(LM), ce qui vous permet de savoir 
tout de suite si l'image mérite d’être 
retenue pour une utilisation sous 
forme analysée. L'adresse de départ 


de la zone tampon doit être POKée "2 
dans les mémoires 8 et 9 (sous la es 
forme octet bas - octet haut). Es 


TEST-DECOMP vous permettra pour s2 


sa part de vérifier la restitution de te 
l'image graphique par IMAGE 2 à ‘2: 
partir de la zone tampon. se 











Programme TEST-COMP 


1 INPUT 
S HGR 


‘NOM DE L'’IMAGE : 


19 POKE 8,0: POKE 93,96:DS 


PRINT DS‘"BLOAD"IS 


Programme TEST-DECOMP 2: 
";1S 1 INPUT “NOM DE L’IMAGE : ";IS:IIS = 15 
+ “-COMP":1S = IS + “-DECOMP" 
CHRS (43: | S HGR 
10 POKE 8,0: POKE 9,96:DS = CHRS (4): 


PRINT DS$"BLOAD*IIS 


15 I$ = IS + “-COMP" 
20 PRINT DS'"BLOAD IMAGE 1 OBJ": CALL 76 20 
8:LM = PEEK (24) + 256 *x PEEK « a: 
25): PRINT DS"BSAVE"IS",AS6000, LL" O0" 
LM: TEXT : HOME : PRINT ‘"LM="EIM 
1 ORS $300 IMAGE 1 | 19 CLC 
2 IMAGE EPZ #6 Lisa 1.5 20 ADC #$1F 
3 TRPON EPZ $4 21 STA FIN 
4 OCTET EPZ #4 2 LDA #3FF 
SFIN EPZSB Z STA LIMITE 
6 LIMITE EPZ $ 28 UDR #$0 
TH  EPZ 6 25 STA IMAGE 
BNO  EPZ $18 26 SOUCLO LDY #$0 
g LA #0 27 LA (IMAGE), Y 
10 SFA NO 28 STA QCTET 
ii STA NO+1 23 BOUCLI CPY LIMITE 
12 LDA 30 BER SUITEI 
13 CP #520 3i INY 
{8 BEQ SUITEO 3% LDA (IMAGE), Y 
15 CP #40 5 CP OCTET 
16 BEQ SUITEO 34 BEQ BOUCL1 
17 LDA #$40 35 SUITEI TYA 
{8 SUITEO STA IMAGE+$1 4 TAX 
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RARES PENN SE NA 
Lite stintsantae 


PRINT DS'"BLOAD IMAGE 2 OBJ": CALL 87 
PRINT DS"BSAVE"IS",AS2000,L$20 


ki LDY #40 

3% STA (TAMPON), Y 
39 INY 

40 LDA OCTET 

ai STA (TANPON), Y 
82 LDA NO 

& CLC 

& AC 42 

5 STA NO 

46 BCC 50 

87 INC N0+1 

48 S0  LDA TPE 

49 CLC 

s ADC #42 

si STA TAMPON 

52 BCC SUITBE 

sS INC TREONS1 


S4 SHITE2 TXA 


| 
19 








5 CLC 9 BEC SUITEO 
% AOC IMAŒ 10 UDA ##40 

57 STA IMAGE {1 SUITEO STA IMAGE +61 
58 LDA IMAGE +$1 12 LDA #$0 

| ADC #50 13 STA IMAGE 

60 STA IMAGE +$1 14 GOUCLO LDY #40 

61 CP FIN 15 LDA (TAMPON), Y 
62 BCC BOUCLO 16 CE #50 

63 ER SUITES 17 BEC RETOUR 
64 BCS RETOUR 18 INY 

65 SUITES LDA #$FF 19 STA TEPOR 
66 SC 20 LDA (TAMPON), Y 
67 GBC IMAGE 21 LOY TEPOR 
68 CH 850 22 BOUCL1 DEY 

69 RQ RETOUR PA STA {IMAGE}, Y 
70 STA LINITE 24 BNE BOUCLt 

71 BNE BOUCLO 5 UR TDPDR 
T2 RETOUR LDY #$0 % LC 

73 TYA 27 ADC IMAGE 

74 STA (TAMPON), Ÿ 28 STA IMAGE 

75 RTS 29 BCC SUITE 
76 END na) INC IMAGE +$! 
= 31 SUITE LDA TRHPON 

zx LC 

1 IMAGE EP7 $ IMAGE 2 kG RDC #402 

2 TRPON EPZ $8 Lisa 1.5 3 STA TRPEN 

3 TOR EPZ A 5 BCC BOUCLO 

4 HR  EPZ $E6 % INC TAMPONS! 
5 LDA HPR6 x CLC 

6 CHP #$20 3 BCC BOUCLO 

7 BEG SUITEO 39 RETOUR RTS 

8 CMP #$40 40 END 


IMAGE 1 0BJ 
8300, 379 


0300- A9 00 85 18 85 19 AS E6 
0308- C9 20 FO 06 C9 40 FO 02 
6Si0- A9 40 85 07 18 69 iF 85 
0318- 08 AS FF 65 OC A9 00 &5 
0320- 06 40 00 B1 06 85 OA C4 
0528- 0C FO 07 C8 B1 06 C5 OA 
0330- FO F5 96 AA A0 00 91 08 
0358- CB AS OA 91 08 A5 18 18 
0340 69 02 85 18 90 02 E6 19 
03:8- R5 06 18 69 02 85 08 90 
0350 02 E6 09 8A 18 65 06 85 
0358- 06 45 07 69 00 85 07 CS 
0S60- 0B 90 BE FO 02 BO OD AS 
0368- FF 38 ES 06 C9 00 FO 0 
0370- 85 OC DO AD RO 00 98 91 
0378- 08 69 


ts IMAGE 2 OBJ 


036A- 45 E6 C9 20 FO 06 
0370- C9 40 FO 02 A9 40 85 07 
0578- À3 00 85 06 A0 00 B1 08 
0380- C9 00 FO 25 CA 85 OA Bi 
0388- 08 A4 OA 68 91 06 D0 FB 
0390- À5 OA 18 65 06 85 06 90 
0398- 02 EB 07 ÀS 08 18 69 02 
0SA0- 65 08 90 08 E6 09 18 9 
OSR8- DS 60 





Accès direct aux disquettes 
Programme DIRAC 


Gérard Michel 


Ce petit programme est un utilitaire rudimentaire qui vous | 10 
permettra d'accéder directement à un secteur donné sur 
une disquette pour y lire ou y écrire des informations. 20 


TEXT 


: HOME : INPUT "PISTE : ‘:;P: IN 


PUT "SECTEUR : “;5 


INPUT 


“COMMANDE : “;C: IF C < 1 OR C 


L'instruction d'appel à RWTS et les paramètres des tables 
IOB et DCB sont ‘’cachés” à la fin du programme Apple- 
soft. En conséquence. si vous trouvez ce dernier trop sim- 
piste et désirez l'améliorer, n'oubliez pas de vérifier que 
vos modifications n’écrasent pas les paramètres où de les 
déplacer dans le cas contraire. 

Les informations à fournir sont les suivantes : 

e Piste et secteur en décimal. 

e Commande : 1 pour lire ou 2 pour écrire. 

e Éecteur concerné (1 ou 2}. 


e Pour l’adresse-mémoire à partir de laquelle seront trans- 
férées les données. deux possibilités vous sont offertes : 


— donner l’adresse en décimal (par exemple 8192), 


— faire un "RETURN sur la zone “Adresse décimale” et 
la donner ensuite en hexadécimal sous la forme 


21.22,23,Z4 (par exemple, pour rentrer $2000. tapez 
2.0,0.0). 





> 2 THEN 20 
30 INPUT “DRIVE : 
2 THEN 30 


“sDS IF D € 1. OR-D: > 


40 INPUT “ADR. DECIMAL : ‘"; ADS: IF AD# 
< > ‘“* THEN SO 

45 INPUT ‘ADR. HEXA “:Z1,22,23,24 

SO POKE 2436,P: POKE 24937,S: POKE 2504, 
C: POKE 2494,D: IF ADS < > ‘“" TH 
EN AD = VAL (CADS):HB = INT (CAD 


/ 256) :LB = AD - 256 « HB: POKE 2 
SO0,LB: POKE 2501,HB: GOTO 100 

(Z1 « 16) + Z2:22 = (23 »« 16) + 
Z4: POKE 2501,21: POKE 2500,22 
100 CALL 2484: POKE 2508,D: END 


70 21 = 


Programme DIRAC : code caché 


O93B4- A9 O9 AO BC 

OSB8- 20 D9 03 60 O1 60 O1 00 
0O3CO0- 00 OB CD 03 OO 1C OO 00 
09C8- 01 E6 FE 60 O1 OO O1 EF 
O9DO- D8 
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Dessins avec une planche à clous 


C« NICOLAS MONSARRAT MAI 83 «<} 


PROGRAM DECLOUS; 
USES TURTLEGRAPHICS,TRANSCEND; 


CONST NPDEF = 20: 
TYPE CLOUS =RECORD 
GENRE :CHAR; 
ARGU  :ARRAY!1..5] 


OF REAL 
END; 
TABLEAU =ARRAY [1..20,1..2] 
OF CLOUS; 
VAR TAB :ARRAY(1..201 OF CLOUS; 


CALC,POS :ARRAY[I1..20,1..2} OF REAL; 


OPTION :CHAR:; 

MAXIND :INTEGER: 
BOITACLOU:FILE OF CLOUS: 
NP :INTEGER: 

X,Y *REAL; 


PROCEDURE EFF(LIGNE:INTEGER); 

BEGIN 
GOTOXYCO,LIGNE); 
WRITE(’*:40): 
GOTOXY{O,LIGNE) 

END; 


FUNCTION RADCANGLE :REAL) :REAL: 
BEGIN 
RAD := ANGLE »# 90.0174532 


PROCEDURE ECRITURE(NOM:STRING): 
VAR I:INTEGER; 
BEGIN 

REWRITE(BOITACLOU,NOM) ; 

FOR I :=- 1 TO MAXIND DO BEGIN 


BOITACLOU‘.GENRE := TABLIJ.GENRE; 
BOITACLOU‘.ARGU :=: TAB(I].ARGU:; 
PUT(BOITACLOU) 

END; 

CLOSE(BOITACLOU,LOCK) 


END; 


PROCEDURE LECTURE (NOM:STRING); 

VAR I:INTEGER; 

BEGIN 
(#S1-#*)RESET(BOITACLOU, NOM); (nS1+) 
iF IORESULT<>O 

THEN BEGIN 
WRITECCHR(7) ,NOM, 
® N'‘'EXISTE PAS’); 
FOR I :=- 1 TO 4000 DO 
EXIT(LECTURE) 


# 


MAXIND := MAXIND + 1: 


TABL[MAXIND]I.GENRE :=: BOITACLOU".GENRE; 
TABCMAXINDI.ARGU := BOITACLOU”.ARGU; 


GET(BOITACLOU) 
UNTIL EOF(BOITACLOU); 
CLOSE (BOITACLOU, LOCK) ; 
END; 


PROCEDURE CALCUL; 
VAR I:INTEGER; 


Nicolas Monsarrat 


Le but de ce programme est de si- 
muler à l’aide de l'Apple Il la réalisa- 
tion de dessins à base de clous. Cha- 
cun d’entre nous a, dans sa jeunesse, 
relié des clous plantés sur une plan- 
che suivant des motifs géométriques 
(cercles, droites...) au moyen de ficel- 
les. Ce programme vous permettra 
justement de réaliser une infinité de 
créatons de ce genre. avec tous les 
avantages que peut comporter l’utili- 
sation de l'informatique : modifica- 
tion du dessin, insertion de clous, 
etc. De plus, vous pourrez recopier 
vos dessins sur une table traçante 
Watanabe si vous en êtes équipé. 


Pour ce qui est de la programmation. 
le choix du Pascal s'imposait pour 
plusieurs raisons. Tout d'abord, il est 
plus facile d'améliorer le pregramme 
grâce à la clarté des noms de procé- 
dure : LECTURE(NOM:STRING): est 
plus parlant” que G@SUB 9000. 


Ensuite, la gestion de la mémoire as- 
surée automatiquement par le sys- 
tème Pascai élimine les problèmes de 


collisions entre programme et page 
HGR. 


Enfin, la vitesse issue de la compila- 
tion permet un tracé rapide malgré 
les nombreux calculs effectués 


Voyons maintenant concrètement 
comment planter nos clous ! 


Ils ne peuvent être diposés que sur 
des droites ou sur des cercles. 


Une droite sera représentée par qua- 
tre nombres (suivis d'un cinquième 
inutile en l'espèce) : ainsi : 


D: X1 Y1 X2 Y2 0 (le 0” est ajouté 
par le programme) 


représente une Droite allant du point 
X1-Y1 au point X2-Y2. 


La représentation des cercles réclame 
cinq nombres ”utiles” : 


C: R AD AA X1 Y1 


représente un arc de Cercle de rayon 
R, de centre X1-Y1, entre les angles 
AD et AA (compris entre —360 et 
+360 degrés). Si AA est supérieur à 
AD, les clous seront disposés dans le 
sens trigonométrique, et inversement. 


Îl existe également une instruction 
spéciale, le séparateur de syntaxe N 


NO0000 


sert à réaliser deux dessins indépen- 
dants (les clous de l'instruction précé- 


tonte 


© 
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dente ne seront pas reliés à ceux de 
l'instruction suivante). 


Pour exécuter le programme, on 
tape au niveau COMMAND du Pas- 
cal un Xjexecute du programme- 
code et le menu principal apparaît. 
On y trouve les options classiques de 
chargement (Load) et de sauvegarde 
(Save). Si vous ne chargez rien. ap- 
puyez sur N (pour nouveau dessin). 
L'Edition permet ensuite de visualiser 
et de modifier le dessin. 


Examinons de plus près la création 
de notre premier dessin. 


Pour confirmer l'effacement du des- 
sin antérieur, il faut répondre par 
"O” à la question “NOUVEAU FI- 
CHIER ?”. Les commandes D, C et 
N déjà évoquées apparaissent alors. 
Pour un premier exemple simple, 
vous pouvez taper : 


D 0 0: "+279 0 
D 279 06279: 191 


Les erreurs éventuelles seront corri- 
gées plus tard. 


Tapez F pour revenir au menu prin- 
cipal et marquer la fin de la saisie. 
puis passez dans l'Editeur. 


Il s’agit d'un éditeur de ligne, c'est à 
dire que l’on travaille sur les numé- 
ros des instructions et non sur le 


texte. Les commandes <M>odif, 
<l>nsert et <S>uppr sont les 
commandes d'édition classiques. 


L'option <N>pts change le nombre 
de clous des droites et des portions 
de cercle (la valeur par défaut est 
20). La commande <D>raw permet 
de visualiser le dessin. Pour effacer 
un dessin en mémoire, il suffit de 
taper N. 


La commande <X>chang permet 
d'échanger les extrémités de vos fi- 
gures, cela évite d'avoir à retaper les 
lignes ou liaisons qui ne conviennent 
pas. 

Si vous êtes possesseur d'une table 
traçante Watanabe, vous pourrez y 
planter vos clous grâce à l'option 
<W3>, Le nombre de points est tri- 
plé afin d'obtenir une densité compa- 
rable à celle de l'écran. Les coordon- 
nées sont adaptées à la résolution de 
la table (environ 3600 sur 2600 
points). 


Une fois votre travail terminé, il ne 
vous reste qu'à taper <F>in. sauver 
votre dessin et quitter le programme. 


Loin d'être parfait, ce dernier permet 
néanmoins de créer facilement de 
beaux dessins par ordinateur. On 
pourrait ajouter d'autres figures géo- 
métriques, mais les possibilités offer- 
tes par les droites et cercles sont déjà 
infinies, ainsi que l'usage saura vous 
en convaincre. 


BEGIN 
FOR I :- 1 TO MAXIND DO 
IF TAB(I1.GENRE=’C”° 
THEN 
CALCII,1) := (RAD(TAB(IJ.ARGU(31) 
-RAD(TABCI1.A4RGU(2]))/NP 
ELSE BEGIN 
CALCIJ,1):=-CTAB(I].ARGUI31-TAB(IJ.ARGU(1:)/NP; 
CALCII,2)1:=(TABII]1.ARGU(4)-TAB{IJ.ARGU£2)3/NP 
END 
END; 


PROCEDURE NOUVEAU: 
VAR CAR :CHAR: 
1,2 :INTEGER:; 
BEGIN 
WRITE(”NOUVEAU FICHIER :°); 
READ(CCAR) : 
IF CAR<>°’0’ 
THEN EXIT(NOUVEAU ): 
MAXIND := 1; 
WRITELN: 
1F EOLN THEN READLN: 
NP :: NPDEF; PAGE(OUTPUT); 
WRITELN(’C :CERCLE”’);:; 
WRITELN(’D :DROITE”); 
WRITELNC’N :SEPARATEUR"’ ); 
WRITELN(’F :FIN’); 
REPEAT 
REPEAT 
EFF(S5):WRITE(’OPTION :°’): 
READ{CAR) : 
EFF(S); 
UNTIL CAR IN [’C’,°D°,°N°,°F’); 
IF CAR=’C° 
THEN BEGIN 
WRITE(’RAYON :°): 
READ(TABIMAXINDI.ARGU(11); 
GOTOXY(O,5S); 
WRITE(’ANGLE DEP,ARRIVEE :°); 
READ(TAB£MAXIND)I.ARGUI2),TABIMAXIND3.ARGUL3)): 
EFF(S): 
WRITE(’COORDONNEES DU CENTRE :°); 
READLNCTABCIMAXIND] .ARGUtI4) ,TABIMAXIND).ARGU(S]J); 
TABIIMAXINDI.GENRE := °C’ 
END 
ELSE 
IF CAR = ‘D’ 
THEN BEGIN 
WRITE(’X1,Y1,X2,Y2 EEE 
READLN(TABIMAXINDI.ARGUt(1],TABIMAXINDI.ARGUI2), 
TAB[P'AXIND) .ARGU(3],TAB(MAXINDI.ARGUI4)): 
TABCMAXINDI.ARGU(S)J := h 
TAB(MAXINDI.GENRE := ‘D’ 
END 
ELSE BEGIN 
TAB(MAXINDI.GENRE := ’N’; 
FOR Z := 1 TO 5 DO 
TAB[MAXINDIJI.ARGU(Z] := © 
END: 
ÎF CARC>’°F”’ 
THEN BEGIN 
GOTOXY(O0,6+MAXIND): 
WRITE(TABI(MAXIND]I .GENRE) ; 
FOR I :+ 1 TO 5 DO 
WRITE(TRUNC(TABEMAXINDI.ARGUIIJ2}:S);: 
MAXIND := MAXIND + 1 
END 
UNTIL CAR=°F’;: 
MAXIND := MAXIND -1 
END: 


PROCEDURE RAPPEL; 
VAR S,NOM:STRING; 
NUM:INTEGER; 
BEGIN 
PAGE (OUTPUT) ; 
WRITE(’NOM DU FICHIER :°); 
READILN (NOM) ; 


s — ax 
ivsæesrrz & 
: bite DUT Lg 
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IF NOM=°° = 
THEN EXIT(RAPPEL) ; Les mystères de la ligna 


PAGEC(OUTPUT) : 65535 


LECTURE (NOM) ; 


END; Vous avez dûs être très nombreux à 


avoir été intringués de voir apparaître 
dans certains de nos programmes la 
ligne 65535, ligne impossible à dé- 


PROCEDURE ECRIT; 
VAR NOM:STRING: 


BEGIN | à ds : 
WRITEC’NOM DU FICHIER :‘): tuire ou à modifier, car l'Applesoft 
READLN (NOM); refuse tout numéro de ligne supé- 
IF NOM=’’ THEN EXIT(ECRIT): rieur ou égal à 64000. Pourtant, on 
ECRITURE(NOM) peut se servir des lignes de numéro 

END: supétieur, qui apparaîtront au listing 


(mais, comme elles ne peuvent être 

PROCEDURE XY(J :INTEGER) ; atteintes par des GOTOSs ou autres 
BEGIN GOSUBSs, on y met souvent des 
IF TAB(J1.GENRE="C° REMs de copuright difficilement délé- 


THEN BEGIN biles). 
X := TABIJI,ARGU(4)+TAB(J1.ARGU(1] 
°COS(POS(J,1] +RADCTAB(J].ARGU (21 )); 


Rompons pour une fois la magie et 


Y := TABIJJI.ARGU(SI+TAB(J].ARGU(1) b Ps li 
#SIN(POS(J,11 +RAD(TAB(J] .ARGU( 21 )) ; CAPE BONNE EE ER Er RER 
ne À On utilise la routine  FNDLIN 
POS(J,11 := POS(J,1)+CALC(J,1] : : ; 
END ($D61A) de l'Applesoft qui cherche 
ELSE BEGIN une ligne dans la mémoire de l'Ap- 
X := TAB(JJI.ARGUI1]-POS(J,1]; ple, ligne dont le numéro est contenu 
Y := TAB(JJ.ARGU(2)-POS[IJ,2]); dans les mémoires $50.51 (octet bas 
POSIJ,1) := POS{J,1] + CALC(J,11: en $50, octet haut en $51 comme 
POS(J,21 :-= POSt(J,21 + CALC(J,21 d'habitude} et qui fournit l'adresse | 
END | 


END: 


PROCEDURE DRAW:; 


du début de cette ligne dans les mé- 
moires $9B-9C {octet bas-octet haut 
bien sûr}. Chaque ligne commence 
par l'adresse de la ligne suivante (2 


VAR I,J :INTEGER:; ù ; 
FLAG !BOOLEAN : octets) puis continue par son numéro 
CAR : CHAR: (2 octets} avant de contenir la ligne 
BEGIN ; proprement dite et de se terminer 
CALCUL: par un zéro. 
FOR I := 1 TO MAXIND (4 
DO BEGIN Dès lors. tout est clair: voici : 
POSII,1) := 0; comment créer la ligne 655385 : 
POSII,21 := © 
END; e créer cette ligne en lui donnant le 
EFF(22); numéro 63999 ($FOFF) : 


WRITEC’OVERLAY :°); 
READ(CAR) ;EFF4(22): 
IF NOT (CAR IN £°0°,°N°)J) 
THEN EXIT(DRAW);: 
IF CAR-='0° 
THEN GRAFMODE 
ELSE INITTURTLE; 


e faire ICALL —151, puis: 
* SO:FF F9 N D61AG 9B.9C 


e noter l'adresse affichée (octet bas- 
octet haut}, 4 ajouter 2. et afficher 
l'octet contenu dont l'adresse est 


A. e FALSE: le résultat, ainsi que le suivant : on 
REPEAT trouve normalement ‘FF F9": 


PENCOLOR(NONE); XY (1); 
MOVETO{(ROUND(X) ,ROUND(Y D); 
PENCOLOR (WHITE) ; 
FOR J := 2 TO MAXIND 
DO BEGIN 
XY CJ); 
IF TABTJJ.GENRE<>’N° 
THEN IF FLAG = FALSE 


THEN MOVETOCROUND(X) ,ROUND(Y) ) 


ELSE BEGIN 
FLAG := FALSE; 
PENCOLOR(NONE) ; 


MOVETO(ROUND(X} ,ROUNDCY)); 


PENCOLOR(WHITE) 
END 


ELSE FLAG := TRUE 
END; 
TI := I + 1 
UNTIL I>NP+1; 
WRITE(CHR(7)); 
READLN(KEYBOARD) ; 


TEXTMODE 
END; Olivier Herz 
RE * 
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© remplacer avec le moniteur ”FF 
F9” par FF FF”. 


Inversement, pour détruire la ligne 
65535, il suffit de : 


e détruire une ligne 63999 éven- 
tuelle : 


e faire ICALL —-151. puis : 
* SO:FF FE N D61AG 98.9C 


e ajouter 2 à l'adresse obtenue: on 
doit y frouver FF FF qu'on rem- 
placera par FF F9; 


e détruire la ligne 63999 ainsi obte- 
‘nue. 


Bien sûr. on peut faire d'autre substi- 
tutions entre numéros de lignes de la 
même manière grâce à FNDLIN. 
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Les joies du Profile... 












































Apple France, c'est-à-dire Seedrin, a 
mis en oeuvre une politique 
commerciale qui, c'est le moins que 
lon puisse dire, ne fait pas la joie de 
ses clients : même si un équipement 
se révèle déficient dès l'achat, il n’est 
pas remplacé mais réparé. Le client, 
qui a déjà payé, est privé de son 
équipement et voit en plus son 
temps de garantie réel diminué du 
temps de réparaton. 


Pour les équipements standards. 
pour lesquels les revendeurs compé- 
tent peuvent effectuer la plupart des 
réparations, le client final ne s’aper- 
çoit en général de rien, le revendeur 
assurant le tampon. 


Par contre, le Profile ne peut à ce 
jour être réparé que par Seediin. 
Voici ce qui est arrivé à une entre- 
prise de services que nous connais- 
sons bien. Elle a récemment vendu 
deux systèmes de gestion complets 
sur Apple /// avec deux Profiles dans 
chaque site. Aucun problème au ni- 
veau des logiciels développés pour la 
circonstance, qui donnent entière sa- 
tisfaction. Malheureusement, dans 
chacun des deux sites, l’un des Profi- 
les a. dès le début, connu des pro- 
blèmes. Le premier a été immobilisé 
deux semaines, après avoir provoqué 
deux destructions de fichiers: le 
client a failli faire un procès tellement 
tout cela l’a énervé. Dans le second 
site, le client est furieux lui aussi car 
on lui annonce un délai de répara- 
tion de deux à quatre semaines. 


Nous avons aussi entendu parler 
d'un pauvre acheteur de Profile dont 
le disque est déjà plusieurs fois 
tombé en panne. Outre les immobili- 
sations successives de son outil de 
travail, ce client ne peut plus avoir la 
moindre confiance dans un équipe- 
ment qu'on refuse de lui échanger 
bien qu'il ne soit manifestement pas 
fiable. 


Comment peut-on prétendre que 
l'Apple /// est un ordinateur de ges- 
tion si l'on n'est pas en mesure de 
faire un remplacement standard 
quand un disque dur fonctionne mal 
dès la livraison ou, pour le moins, de 
le réparer dans un délai raisonnable, 
donc inférieur à la semaine ? 


















Nous encourageons donc Seedrin à 
agir pour améliorer le sort des pos- 
sesseurs de Profile, soit en acceptant 
enfin le principe d’un échange pour 
des équipements fondamentalement 
défectueux, soit en mettant au moins 
en oeuvre les moyens nécessaires 
pour effectuer rapidement les répara- 
tions éventuelles. Nous vous prévien- 
drons si le ciel s’éclaircit à ce sujet. 










PROCEDURE TABLE; 


VAR TT :TEXT: 
NON :STRING; 
FLAG:BOOLEAN; 
I1,J :INTEGER; 

BEGIN 

NON := ’*; 


WRITE(’NOM DU FICHIER DE SORTIE : 
READLN (NOM) ; 
IF NOM=’" THEN NOM := ‘#8:°; 
REWRITE(CTT , NOM); 
NP := NP + 3; 
CALCUL; 
FOR 1 := 1 TO MAXIND DO 
IF TABIII.GENRE=‘C’ 
THEN POSCI,1} := TAB(IJ].ARGU(2) 
ELSE BEGIN 
POSTCI,1] 
POSII,2) 
END; 


C#8:) ‘’): 


0: 
(e] 


FALSE; 


XY(1): 
WRITELNCTT,’M’,ROUND(X#12.321428), 
*,", ROUND(Y#13.612565S)); 
FOR J := 2 TO MAXIND 
DO BEGIN 
XYCJ); 
IF TAB(JI.GENRE <>’N” 
THEN 
IF FLAG=FALSE 
THEN WRITELN&TT,'D’,ROUND(X*#12.321428) 
*,”, ROUND(Y#13.612S65S)) 
ELSE BEGIN 
FLAG := FALSE; 
WRITELN(TT,’M’,ROUND(X#12.321428), 
* ,°» ROUND(Y#13.612565)) 
END 
ELSE FLAG := TRUE 
END; 
T's TL: 
UNTIL I>NP+1; 
NP := NP DIV 3; 
CLOSE(TT,LOCK): 
WRITE(CHR(7),CHR{7)); 
PAGECOUTPUT) 
END; 


PROCEDURE LISTE; 
VAR I1,J :INTEGER; 
BEGIN 
GOTOXY(O0,0); 
FOR I := 1 TO MAXIND 
DO BEGIN 
WRITE(I:2," :°,TAB(I]1.GENRE:3); 
FOR J := 1 TO S DO 
WRITE(ROUND(TABLI1.ARGU1IJ:):5S); 
WRITELN 
END; 
EFF(MAXIND) 
END; 


PROCEDURE MODIF; 
VAR NUMERO:INTEGER:; 
CAR,RE:CHAR; 


I :INTEGER: 
VAL :REAL; 
BEGIN 
EFF(21); 


WRITEK” INSTRUCTION A MODIFIER 

READLN (NUMERO) ; 

IF (NUMERO<1) OR CNUMERO>MAXIND) 
THEN EXITCMODIF); 


FU NE 


EFF(21); 
CAR := TABINUMERO] .GENRE: 
WRITEC’GENRE : Ç’,CAR,°) ‘); 
READ(RE) ; 
IF NOTCEOLN{(INPUT)) 

THEN BEGIN 
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READLN; 
TABC(NUMERO] .GENRE := RE Détruisez des disquettes 





END 
ELSE TABCNUMERO].GENRE :- CAR; avec vos logiciels ! 
GOTOXY (0,23); 
WRITE(’<CR> ACCEPTE, <ESC> MODIFIE’): En travaillant avec Maglcalc sur une 
FOR I := 1 TOS disquette de fichiers quasiment pleine 
DO BEGIN que je n'avais pas encore sauvegar- 

EFF (21); dée (autant pour moi!}. j'ai un beau 

VAL := TAB£{NUMERO) . ARGU [I]; jour découvert que les deux tiers des 

WRITEC"VALEUR *,1,° : (7, ROUND(VAL) fichiers avaient disparu. Aucun 

Fées RERDEREE moyen de les récupérer avec un pro- 

EN Dci gramme normal de “RECONS- 
READLN: TRUCT VTOC”. Un second utilitaire ke 
TAB(NUMERO] .ARGU(I3 :- VAL m'a montré qu'un secteur du catalo- Z 

END que avait été totalement mis à zéro. ; 

ELSE BEGIN J'ai réussi enfin à tout récupérer nu: 
GOTOXY (0,22); grâce à un programme génial, le pro- É 
WRITE(’NOUVELLE VALEUR :°); gramme FCAT du logiciel "Bag of 12 
READLN(VAL);EFF(22); Tricks”. 
TAB{NUMERO].ARGUII] :- VAL 

END 


En en discutant avec d'autres spécia- 
END; listes. j'ai appris que ce problème de 
ES F(21) remise à zéro de secteur survenait 
; parfois avec Visicalc: quand la dis- 
quette est pleine. D'autres logicieis 


ERT; Hate 
RROPECURES ANSE aussi deviennent dangereux quand la 


VAR I1,J,2 :INTEGER:; 


CAR :CHAR: disquette est trop pleine. Alors, mé: 
BEGIN fiez-vous, et achetez Bag of Tricks. 

GOTOXY(0,21): 
WRITE(’NUMERO APRES LEQUEL ON INSERE :°’); En particulier, attention à PES si 
READLN(J);EFF(21); votre disquette est trop pleine ou, 
WRITEC/OPTION : <C>,<D>,€N> ‘); pire, si vous utilisez de gros fichiers 
READ (CAR); sur disque dur. Je connaïs une so- 
ÉFF(21); 


ciété de conseil dont un client a eu 
un gros fichier sur disque mis sens 
dessus dessous par PFS. Et comme 


IF (J<1) OR CJ>MAXIND) OR 
NOT {CAR IN (°’C’,°D°,°N’1) 
THEN EXIT(INSERT ); 


FOR I := MAXIND DOWNTO J DO la sauvegarde copiait fidèlement la 
TABCI+1] := TAB(I): catastrophe de la version originale 

MAXIND := MAXIND + 1: (découverte plus tard), il a fallu re- 

JASE NTI el constituer le fichier à la main, avec 

GOTOXY(O,21); un autre logiciel, bien entendu. 

IF CAR="C’ 


THEN BEGIN 
WRITEC*RAYON :°3; 
READ(TAB[.J1 .ARGU (11); 
EFF(21); 
WRITEC’ANGLE DEP, ARRIVEE :‘); 
READLN (TAB [J1.ARGU(21,TAB (31 . ARGU {31 ) ; Edition de formule en 
EFF(21); Magicalc 5 
WRITE(*COORDONNEES DU CENTRE :’); 


READLN(TAB(J]I.ARGU(4],TABIJJ.ARGU£CS1); Dans certains cas, quand on essaye 


Re 0 ÉENRE SET NRLRERE SEM de mettre à jour avec ‘/E” une for- 
ELSE mule dans un tableau Magicalc, on a 
IF CAR = ‘D’ la surprise de voir la valeur résultant 
THEN BEGIN de la fonnule apparaître en lieu et 
WRITEC’X1,Y1,X2,Y2  :°): place de la formule. C’est en particu- 
READLN(TABI.J].ARGU(1),TABIJI.ARGU({2], lier le cas si avant de faire ‘ŸE”, on 
TAB[IJJ].ARGUI3],TAB[J]I.ARGU (4) ); commence à entrer un texte que l'on 
TABCJI.ARGUIS] := O0; efface immédiatement après avec 
TABIJI.GENRE := ‘’D’:EFF(21) ESC ou DEL. Si l’on appuie alors 
END par réflexe sur RETURN, la formule 
TAB£JJI.GENRE := ’N’; 

FOR 2 := 1 TO S DO ; $ 
TABLJI.ARGU(ZI :- O La solution consiste, quand on 
END s'aperçoit que la valeur apparaît au 
END; lieu de la formule, à faire CTRL-V 
pour sortir puis ‘E” pour ré-éditer, 
PROCEDURE DELETE; enfin sans problème. Si cela ne mar- 
VAR I,J :INTEGER: che toujours pas, recalculez avec ”!” 
BEGIN avant l'édition. : 

GOTOXY (0,21); ; 

WRITE(NUMERO A ENLEVER :‘); Hervé: Fhiriez 


READLN(J); 
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EF£ (21); 
IF (J<1) OR (J>MAXIND) 
THEN EXIT(DELETE) ; 
IF J=BÆAXIND 
THEN MAXIND := MAXIND - 1 
ELSE BEGIN 
FOR I :=- J TO NAXIND DO 
TAB(Ii := TAB(I-»1); 
NAXIND := NAXIND -1 
END 


END: 


PROCEDURE SWAP; 
VAR DEP,ARR,I :INTEGER; 


v “REAL; 


BEGIN 


EFF(21); 

WRITELN (’ <X>CHANGE ‘ ); 

WRITEC’NUMERO DE DEPART :°); 

READCN(DEP) ; 

IF DEP-0 THEN EXIT(SWAP); 

EFF(22); 

WRITE(’NUMERO O°’‘ARRIVEE :°); 

READLNÇARR); 

EFF(22):EFF{(21);: 

FOR I := DEP TO ARR DO 

CASE TAB(I].GENRE OF 
"D’:BEGIN 

V :z= TABLI].ARGULC3]; 
TABCIJ.ARGUL3) := TABII].ARGU(1]; 
TABCIJ.ARGUI1I := V: 


REPEAT 
IF CAR IN [°T°,*X°,/M°,"1",°S","U") 
THEN LISTE; 
GOTOXY (0,22); 
WRITELNC’ €M>ODIF, <I>NSERT, <S>UPPR 
WRITEC-<N>PTS ,<D>RAW 
READ(KEYBOARD CAR); 
EFF(22);EFF(23); 
CASE CAR OF 
N° :BEGIN 
GOTOXY{0, 21) ; 
WRITE(-NONBRE DE POINTS :°); 


»> {W>ATANABE”); 
»X>CHANG ,<F>IN :°); 


VAR NOM,NON2 :STRING: 


FLAG : BDOLEAN; 

Fi ,F2 : FILE OF CEDUS; 
I,J :INTEGER; 

CAR CHAR; 


BEGIN 


WRITEC’NOX DU FICHIER DE SORTIE :°); 
READLN(CNON ); 
REWRITE{F1,NON);: 
GOTOXY (0,23); 
WRITE(*’<CR> POUR ARRET ‘ ): 
GOTOXY(O,2): 
FLAG := FALSE: 
REPEAT 
WRITE(®NON DU FICHIER A INCLURE :’); 
READLN(NOM2): 
1F NOM2<>’° 
THEN BEGIN 
1F FLAG=FALSE 
THEN FLAG := TRUE 
ELSE BEGIN 
FI".GEXNRE := ’N’: 
FOR I := 1 TO 5 DO 
F1".ARGULI) := O; 
PUT(F1) 
END: 
LECTURE (NOM2): 
IF IORESULT<>0 
THEN EXIT(FUSION):; 
FOR I := 1 TO MAXIND DO 


BEGIN 
V := TABIIJ.ARGU(4A); Fi” := TAB (1); 
TABLII.ARGUI4]) := TABIIT.ARGU(2);: PUT(F +) 
TABLI].ARGUI21 := V END 
END; END 
CG’ :BEGIN UNTIL NON2 = ‘’; 
V := TAB{I).ARGU(3]: CLOSE(F1.LOCK): 
TAB(IJ.ARGUL3) :2 TAB(IJ.ARGU(2]; WRITECON LIT LE FICHIER ‘NOM :°); 
TAB(I].ARGUI2) := V READ(CAR); P 
END 1F CAR=°0”7 
END THEN LECTURE{NON) 
END: END; 
PROCEDURE EDIT; BEGIN 
VAR CAR:CHAR: NP :- NPDEF; 
BEGIN 3 Ru MAXIND := O0; 
CAR := ‘T'; REPEAT 


PAGECOUTPUT) ; 
WRITELN(’’:11,"PROGRANME DE CLOUS”); 
WRITELN(‘’:11, <C2 N.NONSARRAT ’): 
GOTOXY(O,8); 

WRITELN(’OPTIONS :°); 

WRITELN;: 

WRITELN(C’<N>OUVEAU DESSIN’): 
WRITELN(’"<E>DITION DU DESSIN ACTUEL”); 
WRITELN €’ <L>OAD ‘); 
WRITELN(’<S>AVE”’); 
WRITELN{’<N>ELANGE DE FICHIERS"); 


WRITELN{’<F2>IN’); 
READLNÇCNP); READ(OPTION): 
EFF(21) PAGE COUTPUT ) ; 
7 END; CASE OPTION OF 
PASSSNAPE *E’:EDIT; 
RNÉNODTF: *N’:NOUVEAU; 
I’:INSERT;: *L’:RAPPEL; 
*S°:DELETE; *S’:ECRIT; 
‘D’ :DRAW; ‘M’ :FUSION 
*W'°:TABLE END 
END LS 
Es UNTIL OPTION = °F’; 
UNTIL CAR=’F PAGECOUTPUT) 
END; END. 


PROCEDURE FUSION: 
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EDIT traite exclusivement les fichiers 
TEXT. Tout fichier BASIC (de nom 
NF par exemple) est donc recopié 
dans un fichier TEXT {de nom 
TEXT<NF>]) sur lequel s'effectue 
l'édition. Tout fichier TEXT est traité 
directement. 


En fin d'édition : 
— là commande F sans paramètre 


entraîne la mise à jour du fichier 
initial ; 


ARE 0 
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— la commande F comportant un 
nom de fichier crée un fichier du 
nom donné, de même type que le 
fichier initial, ce dernier étant in- 
changé. 


Modification de l’éditeur 


Pour que l'éditeur sache transformer 
un fichier TEXT en un programme 
BASIC, il faut lui apporter un certain 
nombre de modifications : 


— ajouter les lignes 106, 5610 à 
5640 et 9905 ; 

— modifier les lignes 5510 à 5600 et 
9900. 


Sur la disquette d'accompagnement, 
le fichier PATCHEDIT contient ces 
modifications. La mise à jour du fi- 
chier PROGR.EDIT peut alors se 
faire par : 


LOAD PROGR.EDIT 
EXEC PATCHEDIT 
SAVE PROGR.EDIT 
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Edition des fichiers BASIC 


Gérard Hisleur 


Le programme INIT.EDIT, associé à 
quelques modifications de mon édi- 
teur-compositeur de texte publié 
dans le Pom's 9, permet un traite- 
ment nettement amélioré des pro- 
grammes BASIC : leur transformation 
en un fichier TEXT, sur lequel peut 
s'effectuer l'édition, ainsi que Ja 
transformation inverse en programme 
BASIC sont rendues entièrement au- 
tomatiques. 


La mise en route est réalisée par : 


BRUN PROGR48K 
RUN INIT.EDIT 


Le fichier EDIT contient ces deux 
commandes et le lancement peut 


donc se faire par EXEC EDIT. 


La première information à fournir au 
programme INIT.EDIT est le nom du 


fichier à éditer (éventuellement suivi 
de Di”). Le nom ‘?" provoque l'af- 
fichage du catalogue de la disquette. 


Lorsque le fichier donné n'existe pas 
sur le support, INIT.EDIT demande 
son type afin de le créer. Tout type 
autre que À (programme BASIC Ap- 
plesoft) ou T (fichier TEXT) est re- 
jeté. 
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Programme INIT.EDIT 240 IF TS = "A" THEN PRINT DS:"DELETE":L1S 
250 POKE 216,0: PRINT DS;"OPEN CHAIN.EDIT,D1 
10 HOME :N = 105: DIM ASCN):NDS = “,D1" : “ x 
20 AS = "300:38 48 84 FD AO 00 91 FE E6 FE DO | 260 PRINT DS:"WRITE CHAIN-EDIT 
AS EG ED CA AA ED 049 40 BON Dal 2700 EE Tee Te THEN, Lis = Ntg--NDa:/GOTO:S 
“: FOR I = 1 TO LEN (AS): POKE S11 + 30 
z 1, ASC ( MIDS CAS,I,1)) + 128: NEXT : 280 ECM A THEN 330 
: DORE 008 CAL 444 290 PRINT ‘“LOAD";NS; NDS 
: 30 8 Len: FOR à 1 ro lasse ne ue ge 200 C8 A CHRS (34):0PS.- 17 Dsl Ca em YOBEN 
de XT : FOR I = N TO 1 STEP - 1:AS(I) = " + L18 + GS:WRS = "2? DS" + GS + "WRIT 
= AS + AS: NEXT :AS(O) = AS + “"“:A = PE E" + LS + GSiCLS = 7 DS" + GS + “CLOS 
ce EK (107) + PEEK (108) »* 256 + 8: POKE E" + LS + GS 
à 254, PEEK CAŸ: POKE 255, PEEK CA + 1) | 310 PRINT “63999 DS=CHRS(4):" + OPS + “:" + 
40 INVERSE : PRINT “NOM DU FICHIER A EDITER PARIS RONE Sr SOSLESTr Se SOS 
; 53: NORMAL : & INPUT NS: IF LEN (NS + CLS + “:TEXT:END" 
23 20 THEN 20 320 PRINT “RUN 63999" 
M nid des fe LEN Ne CA THEN 20 330 PRINT “RUN PROGR.EDIT,D1": PRINT Lis: PR 
60 IF MIDS (NS, LEN (NS) - 2,2) = “,D* THEN INT DS; "CLOSE CHAIN.EDIT": PRINT DS;"E 
NDS = RIGHTS (NS,3):N1S = LEFTS (NS XEC CHAIN.EDIT" 
» LEN (NS) - 3) 
70 N2S = ““: FOR 1 = 1 TO LEN (N15):N25 = N2 | Programme PATCH.EDIT 
S + CHRS € ASC € MIDS CN1S,1,1)> + 12 
8): NEXT : FOR ! = LEN (N2S) + 1 TO 3 | 106 VTAB 22: INVERSE : PRINT ‘NOM DU FICHIER 
O:N25 = N2S + CHRS (160): NEXT A EDITER?";: NORMAL : PRINT NAS 
80 DS = CHRS (4): PRINT DS'*NOMON 5510 IB = O: IF LEN (NAS) > 6 THEN IF LEFT 
CIO“: POKE 54,0: POKE 55,3: POKE 56,18 S (NAS,5) = "TEXT<" AND RIGHTS (NAS,1 
: POKE 57,3: CALL 1002: PRINT DS"CATAL ) = “>" THEN IB = 4:NAS = MIDS (NAS,6 
OG, "NDS: PRINT DS“PR#O‘“: PRINT DS"IN#O » LEN (NAS) - 6) 
“+ IF N1S < > “?® THEN 110 5520 NBS = NAS: IF LEN (AS) > 1 THEN NAS = 
90 J = O0: FOR I = 1 TO N: IF MIDS CAS(ID,2,1 RIGHTS (CAS, LEN (AS) - 1) 
) € > “ “ THEN PRINT LEFTS (AS(I),3 | 5530 ONERR GOTO 5550 
>; MIDS CAS(ID),8,17)52] = J + 1: IF J 5540 PRINT DS:"DELETE TEMPO";NDS 
= 42 THEN GET CS:J = © 5550 POKE 216,0: PRINT DS:"OPEN TEMPO" 
100 NEXT : PRINT : PRINT : GOTO 20 5560 IS = O: PRINT DS;"WRITE TEMPO“: IF IB > 
110 FOR I = 1 TO N: IF MIDS (AS(I),8,30) = © THEN PRINT "NEW 
N2S THEN 170 5570 IF TN(IS) = IMAX THEN 5590 
120 NEXT 5580 PRINT SOURCES(TN(IS)):IS = TN(IS): GOTO 
130 NW = 1: INVERSE : PRINT “NOUVEAU FICHIER" 5570 
: NORMAL 5590 IF 1IB > O THEN 5630 
140 PRINT : INVERSE : PRINT “T“;: NORMAL : P | 5600 PRINT DS;"CLOSE TEMPO‘: ONERR GOTO 562 
RINT “(TEXTE) OU “;: INVERSE : PRINT * 0 
A";? NORMAL : PRINT “(BASIC APPLESOFT) | 5610 PRINT DS; "DELETE";NAS 
2"532 GET TS: PRINT Ts 5620 POKE 216,0: PRINT DS:"RENAME TEMPO, ";NA 
150 IF TS € > "T* AND TS < > “A" THEN 140 S: END 
160 GOTO 210 5630 IF NAS = NBS THEN PRINT “DELETE":NAS 
170 TS = CHRS € ASC € MIDS (ASCI),2,1)3 - 12 | 5640 PRINT "SAVE":;NAS: PRINT "DELETE TEXT<"; 
8): PRINT “TYPE “;: INVERSE : PRINT TS NBS:">*: PRINT "DELETE TEMPO": PRINT D 
532 NORMAL : PRINT “ “: S;"CLOSE TEMPO": PRINT DS;"EXEC TEMPO" 
180 IF TS < > "T" AND Ts € > "A" THEN INV : END 
ERSE : PRINT “ERREUR“: NORMAL : END 9300 PRINT : PRINT TAB( 6):"FIN DE L’EDITIO 
190 PRINT : PRINT : IF LEFTS (AS(1),1) = C N“: PRINT : INVERSE : PRINT “F“;2: NORM 
HR# (170) THEN INVERSE : PRINT ‘FICHI AL : PRINT TAB( 6); "UTILISATION DU FI 
ER PROTEGE": NORMAL : PRINT CHIER INITIAL": PRINT TAB( 6):"POUR L 
200 NW = O A SAUVEGARDE, * 
210 LS = "TEXTE" + N1S + “">":L1S = LS + NDS: 9905 PRINT : INVERSE ?: PRINT “F NF“;: NORMAL 
ONERR GOTO 230 : PRINT TAB( 6):"UTILISATION DU FICH 
220 PRINT DS:"DELETE CHAIN.EDIT,D1" IER DE NOM“: PRINT TABC 6);"NF POUR 
230 ONERR GOTO 250 LA SAUVEGARDE.": GOTO 200 
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CX Système est un ensemble de pro- 
gammes conçu pour répondre à 
tous les problèmes (ou presque) que 
peuvent rencontrer une PME ou une 
PMI dans leur gestion. Il se présente 
sous forme d'une famille de logiciels 
parfaitement modulaires : le premier, 
CX Base 100, permet de gérer un fi- 
chier (création, mise à jour, classe- 
ment, calculs...) et d'imprimer des 
états et des étiquettes; la gestion mul- 
tifichiers. elle, est permise par la ver- 
sion avancée CX Base 200, qui re- 
prend toutes les fonctions de CX 
Base 100 pour le travail sur deux fi- 
chiers simultanément et offre des 
possibilités supérieures dans le traite- 
ment et le stockage des données. Un 
complément de programme permet 
de passer de CX Base 100 à CX 
Base 200. La famille ne serait pas 
complète sans CX Texte, un pro- 
gramme de traitement de texte ac- 
cessible à partir de CX Base 200. 


Pour ce banc d'essai, nous avons pu 
disposer de la version la plus évoluée 
du système, CX Base 200 + CX 
Texte. Nous l'avons testé sur un 
Apple //e (64 K sont nécessaires pour 
le fonctionnement du programme) 
équipé de deux lecteurs de disquet- 
tes. CX Base 200 peut gérer jusqu’à 
quatre lecteurs de disquettes, soit 
quatre fichiers simultanément. Pour 
de plus grandes applications, il peut 
travailler avec un lecteur de disquet- 
tes (pour le chargement du pro- 
gramme et éventuellement la gestion 
d'un fichier) et tout support de mé- 
moire grande capacité compatible 
DOS 3.3 (disque dur en particulier). 


CX Base 200 est l'héritier direct de 
CX Muitigestion, dont. on trouvera 
une analyse dans le Pom's &. Il en a 
gardé les qualités, mais aussi certains 
défauts. Heureusement, des amélio- 
rations notables viennent pallier en 
paitie ces faiblesses. 


CX Texte est intimement lié à CX 
Base 200: on n'y accède qu'après 
avoir chargé le programme CX Base. 
Le traitement de texte édite des 
textes qui sont considérés comme 
autant de dossiers et donc traités 
comme tels par CX Base. L'avantage 
de ce programme est de permettre 
d'y insérer, conditionnellement si on 
le désire, des données contenues 
dans les dossiers gérés par CX Base. 


CX Base 200 : l’héritier 
de CX Multigestion 


Héritier de ses qualités... 


CX Base 200, tout comme CX Muiti- 
gestion, est entièrement écrit en as- 
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CX Système à l'essai 


sembieur et réside, pour la plus 
grande partie, en mémoire centrale. 
Cela lui confère une grande rapidité 
d'exécution. Les temps d'accès à la 
disquette et de recherche d'un dos- 
sier sont très acceptables et la durée 
des classements est à peine supé- 
rieure. Il en résulte un confort d'utili- 
sation non négligeable. 


Un dossier peut contenir jusqu'à 
1600 caractères répartis en 55 rubri- 
ques et 47 lignes de notes. Dans ce 
cas extrême, on ne pourra enregistrer 
que 200 dossiers sur une disquette. 
Pour des dossiers moins importants, 
on pourra en stocker jusqu'à 2000 
sur une même disquette (la longueur 
des dossiers est variable. de manière 
à optimiser l'occupation de la dis- 
quette) À ce propos. un utilitaire 
permet d'évaluer la place encore dis- 
ponible sur une disquette en nombre 
de dossiers en se fondant sur la taille 
moyenne des dossiers déjà existants. 


Une dominante de l'emploi de CX 
Base est la souplesse. Il est possible 
d'utliser 4 types de formats de varia- 
bles : 


® numérique. qui accepte les nom- 
bres décimaux selon le mode fran- 
çais {avec une virgule) ou anglo- 
saxon (avec un point} : 


© alphanumérique : 


e date, qui reconnaît une date sous 
les formes les plus variées (13 
NOVEMBRE 1983, 13 NOV 83, 
13 N 83, 13 N, 13/11/83, 13 11, 
etc.) et la vérifie (il sait ce qu'est 
une année bissextile) : 


e stock, qui est en fait un format de 
type numérique ne conservant 
que des cumuls (comme le fait la 
mémoire additive d'une calcu- 
lette). 


Cette souplesse se retrouve dans les 
différents modes de sélection. On 
peut effectuer celles-ci par égalité, 
différence. en indiquant des limites 
ou encore par analogie ou mot-clé. 
Ce dernier mode permet de recher- 
cher dans une rubrique où dans l’en- 
semble du dossier une suite de ca- 
ractères. Si cette chaîne contient plus 
de 4 caractères. la recherche s'effec- 
tuera par analogie, c'est-à-dire que 
sera sélectionnée la rubrique conte- 
nant une suite ressemblant à la suite 
donnée. Cette possibilité est particu- 
lièrement pratique quand on recher- 
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che un nom dont l'orthographe est 
mal connue. Un autre moyen nous 
est proposé pour résoudre ce genre 
de problèmes : si l'on ignore la na- 
ture d'un caractère dans un nom, il 
est possible de le remplacer par un 
blanc. Tout caractère peut alors rem- 
placer ce blanc. Îl est possible de re- 
tenir jusqu'à 12 critères de sélection 
simultanément. Si cela ne suffit pas. 
il est possible de mémoriser le résul- 
tat de cette première sélection pour y 
effectuer une seconde sélection. 
Cette opération peut être répétée au- 
tant de fois que voulu mais. dans la 
pratique. je doute que cela arrive fré- 
auemment. 


Les opérations de sélection et de 
classement font parte des traite- 
ments. Îl est possible d'établir des 
dossiers contenant des instructions 
pour des traitements à opérer sur 
l'ensemble du fichier gestion. Ces 
dossiers sont gérés exactement de la 
même manière que les dossiers ges- 
tion ou les dossiers textes, dont nous 
parlerons plus loin (Cette unicité 
dans le traitement des fichiers rend 
des services appréciables à l'usage. 


Signalons pour mémoire l'existence 
de fiches annexes, qui permettent de 
relier à un dossier principal un ou 
plusieurs dossiers appartenant à un 
autre fichier. Par exemple. on peut 
définir un dossier principal contenant 
les données d'un article et des fiches 
annexes recensant les mouvements 
correspondant à cet article (achat, 
vente, combien, à qui, à quel 
prix..….). 


Enfin, il existe une option de blo- 
cage. qui permet d'interdire certaines 
fonctions comme la création d'un 
nouveau dossier ou la modification 
d'anciens dossiers à qui ne connaît 
pas le code défini lors du blocage par 
l'utilisateur. Il est aussi possible d'uti- 
liser cette instruction sans utiliser de 
code. ce qui permet de se protéger 
des fausses manoeuvres. 


. mais aussi de certains de 
ses défauts 


Une grande partie du travail sur CX 
Base consiste à rentrer des données 
dans des rubriques placées les unes 
en-dessous des autres. On passe de 
l'une à la suivante en tapant sur RE- 
TURN. Par contre, le retour à la ru- 
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brique précédente est impossible. 
Pour revenir en arrière. il faut 
d'abord remonter tout en haut de la 
fiche courante puis redescendre. par 
un nombre approprié de RETURN, 
à la rubrique visée. Ce manque de 
souplesse est d'autant plus contrai- 
gnant que l'on est souvent appelé à 
remonter d’une rubnque ou plus. no- 
tamment à la suite d'erreurs de rubri- 
ques ou de frappe toujours possibles 
lorsque l'on enregistre beaucoup de 
fiches d'affilée (travail fastidieux s'il 
en est, même si des procédures d’en- 
registrement rapide nous sont offertes 
par le logiciel) De plus. si l'on fait 
une erreur dans une rubrique définie 
selon le format “Date” (une date im- 
possible. par exemple). le curseur 
passe à la rubrique suivante au lieu 
de nous ramener au début de la ru- 
brique “Date”, comme on aurait pu 
s'y attendre. Cette incohérence. ajou- 
tée à la non-possibilité de remonter 
d’une rubrique en arrière. est surpre- 
nante dans un programme qui par 
ailleurs possède des qualités indénia- 
bles. 


Nous avons été aussi surpris par les 
faiblesses dans la visualisation du ré- 
sultat d'un traitement Quand on ef- 
fectue un traitement (classement. sé- 
lection). on peut définir jusqu'à 6 
rubriques qui seront affichées lors de 
la visualisation à l'écran du résultat. 
Cet affichage peut se dérouler soit 
d'une traite (défilement des rubriques 
sélectionnées), soit dossier par dos- 
sier (les seules rubriques du dossier 
courant sont affichées: celles du dos- 
sier suivant n'apparaïitront qu'après 
enfoncement de la touche RETURN). 
Dans ce dernier cas. il est possible 
d'accéder au dossier courant par sim- 
ple action sur la touche ESC. Une 
lecture de la fiche entière est alors 
possible, sans être limitée äux 6 ru- 
briques choisies lors de la définition 
du traitement. Malheureusement. et 
cela apparaît très vite gênant. il n'est 
pas possible de revenir à l'endroit où 
l'on avait interrompu la visualisation 
pas à pas du résultat du traitement. 
Toute sortie de la visualisation pas à 
pas nous oblige à la reprendre 
depuis le début. 


D'autre part, l'affichage de 6 rubri- 
ques impose de limiter à 12 caractè- 
res les zones d'écran dans lesquelles 
le contenu de chacune des rubriques 
apparaît. Quand une rubrique dé- 
passe 12 caractères. elle est tron- 
quée, mais aucun indicateur de dé- 
passement ne vient nous prévenir de 
cet état de fait, ce qui n’est pas sans 
poser quelques problèmes dans le 
cas de noms propres. pour lesquels il 
est souvent difficile d'établir s'ils sont 
intacts ou non. 


Il est possible de définir jusqu'à 18 
formules de calcul pour un dossier 


de gestion. Ces calculs portent sur les 
rubriques numériques du dossier et 
sont effectués à l'initiative de l'utilisa- 
teur. La présence de telles possibilités 
est normale dans un logiciel de ges- 
tion de base de données. Le pro- 
blème, dans CX Base, est la faiblesse 
des calculs. En effet. les formules. 
d’une jongueur maximum de 25 ca- 
ractères, n’admettent qu'un niveau 
de parenthèses et ne respectent pas 
l'ordre de priorité des opérations. Les 
formules sont exécutées de la gauche 
vers la droite, opération après opéra- 
tion. 


Cela signifie que ’A=B+C/100" est 
équivalent à ”A={B+C)/100" et non 
à ‘A=B+(C/100)" comme l’exigerait 
l'ordre classique de priorité des opé- 
rations. L'absence de priorité dans 
les opérations et l'impossibilité d'im- 
briquer des parenthèses limitent 
considérablement les possibilités de 
calcul. D'autre part. tout comme 
dans CX Multigestion. tous les nom- 
bres sont limités à deux décimales, 
en arrondissant au plus près. Pour 
des calculs faisant appel à une plus 
grande précision, il faut représenter 
les nombres sous forme de fraction 
de dix, cent ou mille (12.345 s'écrira 
123.45 / 10). ce qui réduit encore un 
nombre de caractères souvent trop 
juste (la simple variable désignant 
une rubrique consomme déjà deux 
caractères). 


Dans son article sur CX Multigestion, 
Hervé Thiriez signalait que la nou- 
velle version de CX permettrait de 
mémoriser les paramètres de réglage 
sur la disquette fichier et non sur la 
disquette programme. Ces paramè- 
tres définissent le format. les caractè- 
res, le nombre de lignes par page et 
autres données relatives à l'impri- 
mante, ainsi que les diverses possibi- 
lités de branchement des périphéri- 
ques (les lecteurs de disquettes ou 
l'imprimante). Apparemment, cela 
n'a pas encore été fait. car ces para- 
mètres sont toujours stockés sur la 
disquette programme. Il est donc im- 
possible de protéger cette disquette 
contre l'écriture et la disquette, plus 
souvent sollicitée, connaît une usure 
plus rapide (la disquette programme 
est protégée contre la copie et une 
disquette de sauvegarde vous coû- 
tera 250 F1). 


Les ”’plus” de 
CX Base 200 


En bonne justice, il faut reconnaître 
que les auteurs de CX Base ont 
néanmoins amélioré les possibilités 
de réglage : le programme permet de 
mémoriser deux jeux de paramètres. 
IL est maintenant possible d'utiliser al- 
ternativement deux imprimantes sans 
modifier aucun des paramètres. 
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Une série de petites améliorations 
aux fonctions de recherche et de 5é- 
lection de CX Multigestion ont été 
apportées dans CX Base. Il est main- 
tenant possible de rechercher un 
dossier en n'indiquant qu'une seule 
des deux clés d'accès et/ou en effec- 
tuant, par une clé d'accès. la recher- 
che par analogie décrite plus haut. 
D'autre part, il est possible de classer 
en une seule opération plus de dos- 
siers qu'avant. On passe de 508 
fiches sur 3 caractères (CX Multiges- 
tion) à 750 (CX Base). toujours sur 3 
caractères. 


Mais ce qui nous a particulièrement 
séduit dans CX Base 200. c'est la 
possibilité offerte par le logiciel de 
programmer des choix. CX nous au- 
torise en effet à écrire des program- 
mes d'au plus 17 pas (cela suffit lar- 
gement) à partir des opérations 
élémentaires proposées par le menu 
Gestion. Un programme est une 
combinaison de “Recherche”, "Enre- 
gistrement”, “Calculs”, "Accès dos- 
sier”, etc, qui permet d'effectuer des 
traitements complexes qu'il serait fas- 
tidieux de réaliser soi-même, instruc- 
tion par instruction. La programma- 
tion est simple à faire et les 
programmes, écrit en général pour 
la gestion d'un fichier particulier, sont 
mémorisés sur la disquette contenant 
le fichier concemé. Dès que le fichier 
est en traitement. les programmes 
sont disponibles à partir du menu de 
gestion. On peut disposer de 6 pro- 
grammes simultanément. 


Une autre originalité de CX Base 
nous à beaucoup plu. en ce sens 
qu'elle permet d'adapter le logiciel à 
l'utilisateur et non l'inverse : les tou- 
ches de contrôle permettant de se 
déplacer dans CX sont aisément mo- 
difiables. Il suffit pour cela d'indiquer 
pour chaque fonction la valeur ASC 
de la nouvelle touche. Cette modifi- 
cation étant effectuée dans le dossier 
réglages qui, je le rappelle, est enre- 
gistré sur la disquette programme, les 
nouvelles touches de fonction entrent 
en vigueur à chaque utilisation du lo- 
giciel. Chaque utilisateur peut ainsi 
définir son propre jeu de comman- 
des. 


Ce souci de flexibilité et de souplesse 
est tout à l'honneur des concepteurs. 


Le complément : 
CX Texte 


CX Texte est un logiciel de traite- 
ment de textes très honnête qui a la 
particularité de gérer ses textes 
comme des dossiers. Il utilise pour 
cela les mêmes menus que CX Base 
et permet de définir des modèles de 
textes à l'instar des modèles de dos- 
sier de CX Base. Tous ces dossiers 
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textes peuvent être reliés les uns aux 
autres par des chaïînages ou des in- 
sertions, dont la succession peut être 
programmée et mémorisée. Evidern- 
ment, CX Texte autorise la gestion 
totale de la mise en page et de la 
présentation (justification à droite) 
pour la sortie des textes sur impri- 
mante. 


Le principal intérêt de CX Texte est 
sa liaison avec CX Base. En effet, les 
textes de CX Texte peuvent être 
complétés ou modifiés par le contenu 
de rubriques de dossiers gérés par 
CX Base. Il est possible d'insérer 
dans le texte des rubriques, des to- 
taux ou des dates trouvés dans les 
dossiers de gestion. Chaque modèle 
de lettre possède sur une page de 
garde les références des rubriques 
qu'il doit reproduire dans le corps du 
texte. Le logiciel va même plus loin 
en proposant la modification du dé- 
roulement du texte en fonction du 
contenu de rubriques d'un dossier de 
gestion (des parties entières du texte 
apparaîtront ou non selon le résultat 
d'un test sur des rubriques). L'édition 
de lettres personnalisées, le tirage 
d'un mailing, l'établissement de fac- 
tures ou de fiches de paie ou même 
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la rédaction d'un rapport sont ainsi 
facilement réalisables. 


La documentation 


La documentation se présente sous 
la forme d’un petit classeur. Sa ré- 
daction est claire et l'approche péda- 
gogique : on accède à la maîtrise de 
CX Base en suivant des leçons por- 
tant chacune sur un thème précis. Ce 
cours” d'utilisation est suivi d’un ré- 
pertoire alphabétique détaillant cha- 
que commande. La dénomination 
des commandes étant suffisamment 
évocante, il suffit de consulter la liste 
des commandes pour trouver celle 
qui conviendra au traitement recher- 
ché. On trouve en annexe un recen- 
sement de'tous les messages d’er- 
reurs possibles avec. pour chacun 
d'entre eux, la conduite à tenir en un 
tel cas. La documentation de CX 
Texte se présente sous la même 
forme, avec en plus une fiche aide- 
mémoire regroupant tous les codes 
utilisés dans le traitement de texte. 


Conclusion 


Malgré quelques défauts surprenants 
dans ce logiciel par ailleurs très per- 
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leurs interfaces, 


leurs périphériques, 


leurs logiciels 


Librairie spécialisée Apple 


m.b.d.c. 


formant, CX Système nous a laissé 
une impression très favorable. Après 
une période d'apprentissage de lor- 
dre de la journée {le temps de pren- 
dre connaissance de toutes les possi- 
bilités de ce programme!), toute 
personne, même non  informati- 
cienne, pourra utiliser aisément une 
grande paitie des capacités du logi- 
ciel La rapidité et la sécurité de 
fonctionnement, alliées à la possibilité 
d'adapter au système des supports 
magnétiques de grande capacité, en 
font un outil de travail privilégié pour 
les PME ou PMI. qui constituent en 
fait le marché visé par la société 
conceptrice de CX Système. 


Adresse : Contrôle X - Tour Maine 
Montparnasse - 33 avenue de Maine 
- 75755 Paris. 


De nombreuses boutiques micro ven- 
dent aussi les programmes de 
Contrôle X 


Prix hors taxes 








172, rue Solférino - 59800 LILLE TEL. (20) 57.91.87 


concessionnaire agréé APPLE - S.A.V. sur place 


ouvert du mardi au samedi de 9h30 à 12h et de 14h30 à 19h 


Poms n° 19 





FE 
CX Base 100 : 1930 F. al 
CX Base 200 : 2770 F. Fe 
CX Texte : 1000 F. b 
CX 200 + Texte : 3360 F. 5 
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CRAMMES 


L'ORDINATEUR 
sélectionnés parmi INDIMIDUEL 


les meilleurs publiés dans 


En cinq ans L'ORDINATEUR INDIVIDUEL a publié des centaines de programmes dans 
les domaines les plus divers: gestion, enseignement, jeux, arts graphique et musical, mathématiques, etc. 


Voici un numéro spécial dans lequel ont été regroupés 50 des meilleurs programmes déjà parus 


dans L'ORDINATEUR INDIVIDUEL ainsi que la méthode pour 
les adapter sur la plupart des ordinateurs. 


à partir du 10 décembre 1983 
35 FF chez votre marchand de journaux 


Pour recevoir ce numéro dès sa parution, il vous suffit d'envoyer vos nom et adresse ainsi qu'un chèque de 35 FF* à 
L'ORDINATEUR INDIVIDUEL (spécial programmes), 39 rue de la Grange-aux-Belles, 75484 Paris cedex 10 


* Etranger 40 FF. Une réduction de 5 F F est accordée aux abonnés sur envoi de la dernière étiquette d'expédition. 





Suppression de fin de programme 


Dans le Pom's 8, Hervé Thiriez vous 
donnait quelques indications sur la 
façon d'accélérer vos programmes 
BASIC et. en particulier. sur le type 
de structure à adopter. C'est ainsi 
qu'il vous recommandait de placer 
en fin de programme toutes les opé- 
rations correspondant à la phase 
d'initialisation des traitements (lecture 
de tables de références. de tableaux 
de DATA. entrée de paramètres..…). 


IL est possible de tirer un autre park 
de cette structure de programme. au 
niveau de l’utilisation de la place mé- 
moire et c'est ce que cet article se 
propose de vous offrir, 


En effet. par définition. les travaux 
d'initialisation s'effectuent générale- 
ment une et une seule fois au début 
du programme. Compte tenu de la 
taille de la mémoire centrale de l'Ap- 
ple. il peut donc s'avérer utile de ré- 
cupérer la place occupée par les ins- 
tructions de cette initialisation qui 
empiètent ensuite sans raison sur la 
capacité disponible pour les autres 
traitements. 


Pour ce faire, il suffit de déplacer la 
fin du programme pour la mettre 
juste après la dernière instruction 
“utile”. de modifier les différents 
pointeurs liés aux variables créées au 
cours de l'initialisaton et de déplacer 
également en conséquence les varia- 
bles ou descriptifs de variables 
concernés. Cet ensemble de manipu- 
lations est assuré par la routine en 
assembleur listée plus loin. 


Avant d'apporter quelques précisions 
sur cette routine. examinons un ins- 
tant le programme de démonstration 
donné ci-après qui nous éclairera sur 
son mode d'emploi. 


La phase dinitialisation débute à la 
ligne 1000 et c'est par elle que l'on 
commence l'exécution. après charge- 
ment de la routine MOVE. La ligne 
100 permet de transmettre à cette 
dernière le numéro de la dernière 
ligne que l'on désire conserver. 1030 
en l'occurence. À l'issue du CALL 
768, les lignes 1040 à 1080 auront 
disparu. 
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Il est nécessaire de faire ici une dis- 
tinct'on en ce qui concerne les DATA 
entre les données numériques et les 
données alphanumériques. Pour une 
variable ou un tableau numérique. 
Applesoft mémorise le nom. l'indice 
si besoin est, et la valeur. Toutes les 
informations utiles se trouvent donc 
réunies dans la zone de stockage des 
variables ou des tableaux. Dès qu'il 
s'agit d’alphanumérique. en revan- 
che. ce n'est plus la valeur qui est 
mémorisée mais l'adresse de cette 
valeur {chaîne de caractères corres- 
pondant à la variable ou à l'élément 
du tableau concerné). Pour une don- 
née lue en DATA. cette adresse se 
trouve dans la zone du programme. 
exactement là où elle apparaît dans 
la ligne de DATA. et non dans la 
zone de stockage des chaînes de ca- 
ractères. Vous pouvez donc toujours 
supprimer une ligne de DATA numé- 
riques après lecture sans perte d'in- 
formation, mais il n’en va pas de 
même pour les DATA alphanuméri- 
ques (c'est pourquoi. dans notre 
exemple, nous conservons les lignes 
1020 et 1030). 


En fait. si les variables conservent 
toujours la méme valeur, vous pou- 
vez laisser les choses en l'état car les 
chaînes ne prennent pas plus de 
place dans la zone-programme 
qu'ailleurs. Si par contre elles sont 
appelées à évoluer au cours du pro- 
gramme. il vaut mieux les transférer 
dans la zone des chaînes où elles 
pourront étre prises en charge par les 
processus de ‘garbage”’. 1l suffit pour 
cela de rajouter dans la phase d’ini- 
tialisation une instruction du type 
A$= A$+ ‘”’ (où A$ est une varia- 
ble qui a été lue en DATA) et vous 
pourrez ensuite supprimer la ligne de 
DATA comme nous l'avons fait pour 
la ligne 1035. 


Adresses 


Quelques remarques pour finir sur la 
routine en assembleur. Les adresses 
utilisées sont : 


$67-$68 : adresse de début du pro- 
gramme. copiée pour manipulation 
en $F9-$FA 


=. 10 14 
re. 


RG RIRUETS 


Gérard Michel 


$6-$7: stockage du numéro de la 
dernière ligne à conserver 


$8-$9 : stockage de l'adresse dans la 
zone-programme de la première ligne 
à supprimer 


$18-$19: mémorise la nouvelle 
adresse de la fin du programme 


(LOMEM) 
$69-$6A : LOMEM 


$6B-$6C : adresse de la fin de la 
zone des variables simples (ARY- 
TAB) 


$6D-$6E : adresse de la fin de la 
zone des tableaux (STREND) 


$AFE-$B0 : adresse de ja fin du pro- 
gramme. 


Programme 


— Lignes 6 à 23: recherche du nu- 
méro de la dernière ligne à conserver 
dans le programme. 


— Lignes 24 à 29: stockage de 
l'adresse de la première ligne à sup- 
primer. 


— Lignes 30 à 34: marque la nou- 
velle fin du programme (00). 


— Lignes 35 à 43: stockage provi- 
soire du nouveau LOMEM. 


— Lignes 44 à 46: déplacement des 
zones des variables simples et des ta- 
bleaux de l'ancien au nouveau 


LOMEM. 


— Lignes 47 à 52: mise à jour des 
adresses pour le déplacement ci- 
dessus. 


— Lignes 53 à 58 : test pour savoir si 
l'on est arrivé à la fin de la zone des 
variables simples. 


— Lignes 59 à 62 : si oui, mise à jour 
de la nouvelle valeur de ARYTAB. 


— Lignes 63 à 68 : test pour savoir si 
l'on est arrivé à la fin de la zone des 
tableaux. 


— Lignes 69 à 78 : si oui, le décalage 
est terminé et on met à jour 
LOMEM, le pointeur de fin du pro- 
gramme et STREND. 


CE 


zrs2e pres 
[TT ES RS ZET 
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Programme MOVE.DEMO 1020 DATA TEXTE 1,TEXTE 2,TEXTE 3,TEXT 
E 4,TEXTE S,TEXTE 6,TEXTE 7,TEXTE 
1 REM DEMONSTRATION DE LA 8,TEXTE 9,TEXTE 10 
2 REM SUPPRESSION D’UNE FIN 1030 DATA TEXTE11,TEXTE12,TEXTE13,TEX 
3 REM DE PROGRAMME APPLESOFT TE14,TEXTE1S,TEXTE16,TEXTE17,TEXT 
4 RENTRER ER SENS e uns E18, TEXTE19,TEXTE 20 
10.D# + LCHRS Sa) IPRTNT-DA BLONDENOUE 0, VE AE ASNE RES se ss 
100 HB ES ie 007 256):LB = 1030 - 2 VSD A VE CL 2  ATOUT EURE 
: PE ne : US(2) + “ AJOUT": DATA TEST AS,T 
a cg PORENSe RRE<EORE 7H: 0eS EST Bs, TEST U#(1),TEST U#(2) 
HO FOR Lis (T0 208) PRINT Z2SCD) ONEX TN] CRC ES NU er SRE Use 
: GET Z$ … À è 
120 FOR I = 1 TO 10: PRINT IS(I): NEXT 'ANENT EMARERREE OR TSRRSETRANT 
: GET ZS Nes 
120 CEORSE ei TO 20n PRINT e2 (1) NEX RO | tp nn nue 
: GET Z$ : ; s 
140 FOR eu TO 200: PRINT ZAC) ANERTS | SA RRDIERANE NET 
ISO PRINT AN SBRINT De: PRINTAUR Chr Pr nd de te 
De US$(2): PRINT AA: PRINT : GET DCE LS j 
160 FOR I = : TO 20: PRINT Zer> + 2267) [1079 FOR Rae OR NP RENTMERRIE RENTE 
: NEXT : END ; 
1000 DIM ZZ(20),Z8(20): FOR I = 1 To 20 | 1080 Re A 
: READ Z$(I1): NEXT ANS D AT DE 
£ Programme MOVE.SCE 34 STA (S$S8),Y 70 STA $69 
Lisa 1.5 35 LDA S8 71 STA SAF 
36 CLC 72 LDA S19 
: ORG $300 37 ADC #3 74 STA S6A 
2 LDA $67 38 STA $8 74 STA $BO 
3 STA SF9 39 STA $18 75 LDA s8 
4 LDA $68 40 BCC S20 76 STA $6D 
S STA SFA a1 INC $9 77 LDA S9 
6 50 LDY #03 42 S20 LDA S9 78 STA $6E 
7 LDA (CSF9),Y | 43 STA $19 79 RTS 
8 CMP $7 44 LDY #0 80 DCM “INT* 
3 BEQ S1 45 SS LDA ($69),Y | 81 END 
10 S3 LDY #1 46 STA (S8),Y 
11 LDA CSF9),Y | 47 INC 569 Récapitulation 
12 PHA 48 BNE Sd #300. 394 MOVE.OBJ 
13 DEY 49 INC S6A : 
14 LDA (SF9),Y 50 Sa INC 8 0300- A5 67 85 F9 À5 66 85 FA 
15 STA SF9 si BNE S6 0308- A0 03 B1 F9 CS 07 FO 10 
16 PLA 52 INC 59 0310- 0 O1 R1 F9 48 88 B1 F9 
17 STA SFA 53 S6 LDA S6A 031B- 85 F9 68 85 FA 4€ 66 03 
18 JMP SO 54 CMP S6C 0520- 88 B! F9 C5 6 FO 03 & 
19 51 DEY 55 BNE 560 0328- 10 03 AO 00 Bi F9 85 0 
20 LDA CSF9),Y 56 LDA $69 0330- CB Bi F9 85 09 A9 00 AB 
21 CMP $6 57 CMP S6B 0338- 91 08 CA 91 08 A5 08 18 
22 BEQ S2 Se BNE S60 0340- 69 03 85 08 85 18 90 02 
23 JMP S3 59 LDA s8 0348- E6 09 À5 09 85 19 A0 &G 
24 S2 LDY #0 60 STA S6B 0350- Bi 69 91 0B E6 69 DO 02 
25 LDA (SF9),Y | 61 LDA $9 0358- E6 6A EG 08 DO 02 EG 09 
26 STA S8 62 STA s6C 0360- À5 6A C5 6C DO CE A5 69 
27 INY 63 S60 LDA S6A 0368- C5 6B DO 08 A5 08 85 68 
28 LDA (SF9),Y 64 CMP $6E 0370- A5 09 85 6C ÀS BEA C5 6E 
29 STA $9 6s BNE S5S 0378- DO DS AS 69 CS 60 De Dé 
30 LDA #0 66 LDA 69 0080- À5 18 45 69 85 ÀF RS 19 
31 TAY 67 CMP S6D 0388- 85 6A 85 B0 ÀS 08 85 6D 
32 STA ($S8),Y 68 BNE S5 0330- AS 09 85 BE 60 
33 INY 69 LDA S18 #3D06 
D 


34 Porm's n° 10 


Ce programme est une application 
simple du mode HGR répondant à 
plusieurs objectifs : 


e mis en oeuvre de graphiques 
HGR simples (pédagogie de l’'Ap- 
plesoft), 


e utilisation ludique, sinon artistique, 
pour jeunes et moins jeunes, 


e utilisation pratique: dessin de 


schémas ou de logos. 
Contrairement à d’autres program- 
mes déjà publiés dans Pom's, il n'a 
pas été prévu de possibilités d’anima- 
tion. 


Les possibilités et les 
commandes 


À la mise en route, le programme lit 
les tableaux de DATA et charge le 
module binaire INVERSION VIDEO 
HGR.OBJ qui occupe 27 octek de 
$300 à $31A et permet d'obtenir 
l'inversion vidéo du dessin en cours 
de traitement. Puis il initiahise le sys- 
tème et attend les commandes de 
l'utilisateur. 


Chaque commande que l'on peut 
envoyer pour déplacer le spot sur 
l'écran est constituée d’une lettre ou 
d'un caractère de contrôle. On dis- 
pose ainsi des commandes suivan- 
tes : 


— ESC : le spot peut, ou non, laisser 

une trace à l'écran, on passe d'un 

mode à l’autre par cette commande. 
LL 


Le mode ‘’écriture” est indiqué en 
bas de l'écran par le mot ECRIS. 


— iJK,M: permettent les déplace- 
ments bien connus des utilisateurs 
d'Apple. 


— ©, ”,”, NU: permettent les dépla- 
cements obliques intermédiaires. 


— V (voir) : permet en mode "éteint” 
de visualiser la position actuelle du 


spot 


— E: efface l'image actuelle, non 
sans laisser la possibilité de rattraper 
une entrée par erreur dans cette op- 
tion. 


— Q: permet de quitter le pro- 
gramme, avec la même précaution 
que ci-dessus, 


Poms n'I0 


Aide au graphique HGR 


— Y: transforme instantanément 
l’image vidéo en son inverse. 


— CTRL-C: permet de sauver sur 
disquette une image HGR, le pro- 
gramme demandant son nom. 


— À: permet de charger en MEV et 
donc de visualiser une image déjà 
enregistrée sur disquette. Il est évi- 
demment possible de travailler à 
nouveau sur cette image. 


— P: positionne directement le spot 
en un point déterminé dont les coor- 
données X (0 à 279) et Y (0 à 159) 
sont spécifiées ensuite à la demande 
du programme fles rentrer sous la 
forme X,Y). Les coordonnées actuel- 
les du spot sont toujours affichées à 
gauche sur là dernière ligne de 
l'écran. 


— CTRL-D: trace une droite dont les 
coordonnées suivront sous la forme 
X0,Y0,X1,Y1. 


— R: trace un rectangle dont le spot 
représente le sommet en haut à gau- 
che. Les dimensions doivent suivre, 
ainsi qu'un caractère: si c'est B le 
rectangle sera plein, sinon seul le pé- 
rimètre sera tracé (rentrer les don- 
nées sous la forme X,Y Caractère). 


— €: trace un cercle centré sur le 
spot. Le rayon sera spécifié ainsi que 
B ou un autre caractère (cf. ci- 
dessus). 


— X: permet d'afficher le caractère 
qui est demandé ensuite. Dans cette 
version, les caractères disponibles 


sont ceux qui figurent à la ligne 
10010. 


À noter que le programme teste tou- 
jours la validité des coordonnées afin 
que l'on ne puisse sortir” de l'écran. 


Principales variables 


X,Y : coordonnées du spot 
CL : couleur (0= éteint, 3= allumé) 
R$ : dernière commande entrée 


A$, B$, C$ : paramètres de cettaines 
commandes 


LX: dimension horizontale du rec- 
tangle 


J.-F. Groussin 


LY : dimension verticale 


DXDY : coordonnées de 
d'une droite 


début 


FX;FY : coordonnées de fin d’une 
droite 


R : rayon du cercle 


EG : rang du caractère affiché par la 
commande X 


V : valeur attribuée à la ligne du ca- 
ractère 


NC: nombre de caractères afficha- 
bles 


CD$: ensemble des caractères de 
largeur 5 


CES: ensemble des caractères de 
largeur 3 


TB%(1.d): tableau des codes des ca- 
ractères (lu en DATA - cf. l’article sur 
les caractères géants). 


Analyse du programme 


Lignes 10 à 20 : initialisation 


Lignes 30 à 190: 
commande et tests 


Lignes 200 à 350 : test X et Y et dé- 
placement du spot 


Lignes 360 à 380 : commande P 
Lignes 400 à 470 : commande R 
Lignes 500 à 525 : commande D 


Lignes 600 à 640 . commande R et 
couleur 


Lignes 700 à 760 : commande C 
Lignes 900 à 920 : commande V 


Lignes 1000 à 1030 : commande 
CTRE-C 


Lignes 1050 à 1060 : commande À 
Lignes 1100 à 1120: commande Q 
Lignes 1150 à 1160 : commande E 


Lignes 2000 à 2090 : DATA pour les 
caractères affichables 


recherche 


Lignes 2900 à 3120 : affichage d’un 
caractère (la technique est la même 
que pour les caractères géants et les 
DATA sont identiques. Leur nombre 
ainsi que les graphismes peuvent être 
modifiés selon les besoins de lutilisa- 
teur). 





Programme AIDE. HGR 


10 REM AIDE AU DESSIN HGR 

11 REM CAPPLESOFT) 

12 REM F=zSs222========2==---- 

15 TEXT : HOME : PRINT “AIDE AU DESSIN 
HGR‘: VTAB 6: PRINT ‘PATIENCE.... 
«": POKE 35,23: GOSUB 10000: HGR 

17 PRINT CHRS (4)'"BLOAD INVERSION VIDE 
O HGR.OBJ* 

20 X = 140:Y = 80O:CL = O 

30 VTAB 24: HTAB 1: PRINT “X°*“;:X:" Y'":Y: 
: IF CL = 3 THEN PRINT ‘“ ECRIS 

“:: GOTO 32 

31 PRINT ‘ s 

32 VTAB 21: HTAB 1: CALL - 958: HTAB 1 
O: PRINT "COMMANDE ‘;: GET RS: PR 
INT RS 

40 IF ASC (RS) < > 27 THEN 60 

45 IF CL = O THEN CL = 3: GOTO 60 

50 CL = O 

60 IF ASC (RS) = 73 THEN Y = Y - 1: GO 
TG 200 

61 IF ASC (RS) = 3 THEN 1000 

62 IF ASC (RS) = 67 THEN 700 

6S IF ASC (RS) = 82 THEN 400 

70 IF ASC (RS) = 77 THEN Y = Y + 1: GO 
TO 200 

80 IF ASC (RS) = 75 THEN X = X + 1: GO 
TO 200 

30 IF ASC (RS) = 74 THEN X = X - 1: GO 
TO 200 

100 IF ASC (RS) = 79 THEN X = X + 1:Y 
= Y - 1: GOTO 200 

110 IF ASC (RS) = 44 THEN X = X + 1:Y 
= Y + 1: GOTO 200 

120 IF ASC (RS) = 78 THEN X = X - 1:Y 
= Y + 1: GOTO 200 

130 IF ASC (RS) = 85 THEN X = X - 1:Y 
= Y - 1: GOTO 200 

140 IF ASC (RS) = 86 THEN 9SOO 

150 IF ASC (RS) = 4 THEN 500 

160 IF ASC (RS) = 69 THEN 1150 

170 IF ASC (RS) = 65 THEN 1050 

180 IF ASC (RS) = 80 THEN 360 

181 IF ASC (RS) = 81 THEN 1100 

182 IF ASC (RS) = 89 THEN CALL 3 # 25 
6: GOTO 30 

183 IF ASC (RS) = 88 THEN 29300 

130 GOTO 30 

200 IF X = - 1 THEN X = O: GOTO 220 

210 IF X = 280 THEN X = 279 

220 IF Y = - 1 THEN Y = O: GOTO 300 

230 IF Y = 160 THEN Y = 159 

300 REM 

320 HCOLOR= CL 

330 HPLOT X,Y 

350 VTAB 23: CALL - 958: GOTO 30 

360 VTAB 21: CALL + 958: INPUT ‘ALLER 
EN X-Y ‘:4AS,BS 

370 IF VAL (AS) < O OR VAL (AS) > 259 
THEN PRINT ‘‘: GOTO 30 

375 IF VAL (BS) < O OR VAL (BS) > 159 
THEN PRINT ‘‘‘"": GOTO 30 

380 X = VAL (AS):Y = VAL {(B$): GOTO 930 
O 

400 VTAB 21: CALL - 958: INPUT "DIM X- 
Y;:COUL.: ";:AS,BS,CS 

410 LX = X + VAL CAS):LY = Y + VAL (BS 
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420 


430 


440 
450 


460 


470 
500 


510 


512 


515 


520 


S25 


600 
610 
620 
630 
640 
700 


710 


715 
720 
725 
730 
740 


750 
760 
800 
810 
820 
830 
300 


310 
320 
1000 


1010 


1020 
1030 
1050 
1060 


1100 


) 


IF LX > 273 THEN AS = STRS (279 - 
X) :LX = 279 

IF LY > 159 THEN BS = STRS (159 - 
YD:LY = 159 

IF CS = ‘“B“ THEN 600 


HCOLOR= 3: FOR I = O TO VAL (CAS): 
HPLOT X + I,Y: HPLOT X + I,Y + V 
AL (CBS): NEXT 

FOR I = O TO VAL (BS): HPLOT X,Y + 

1: HPLOT X + VAL CAS),Y + I: NE 


XT 
HCOLOR= CL: GOTO 30 
VTAB 21: CALL + 3SS8: PRINT ‘DROITE 


XY...A...XY" 
INPUT ‘“‘:AS,BS,CS,DS: IF VAL CAS) 
< O OR VAL CAS) > 2793 THEN PRIN 
T ‘*"": GOTO 500 


DX = VAL CAS): IF VAL (BS) < O OR 
VAL (CBS) > 1593 THEN PRINT ‘‘": 
GOTO 500 

DY = VAL (B$): IF VAL (CS) < O OR 
VAL (CS) > 273 THEN PRINT ‘“: 
GOTO 500 

FX = VAL (CS): IF VAL (DS) < OC OR 
VAL (DS) > 15S THEN PRINT ‘": 
GOTO 500 

FY = VAL (DS): HCOLOR= 3: HPLOT DX, 


DY TO FX,FY: GOTO 30 
HCOLOR= 3: FOR I = O TO VAL (AS) 
FOR J = OC TO VAL (BS) 
HPLOT X + I,Y + J 


NEXT J 
NEXT I: HCOLOR= CL: GOTO 30 
VTAB 21: CALL - SS58: INPUT “CERCLE 
R ;COUL. ";AS$,CS 
R = VAL CAS): IF X + R > = 279 OR 
X-R< =OORY +R > = 13593 OR 
Y - R < = O THEN 700 
IF CS = "B"” THEN 800 
HCOLOR= 3: FOR I = -RTOR 
T = SR R#R-I+# I) 
HPLOT X + I,Y + T 
HPLOT X + I,Y - T 
NEXT 
HCOLOR= CL: GOTO 30 
HCOLOR= 3: FOR I = - R TOR 
T = SOR (Rx R - I « I) 


HPLOT X + I,Y + T TOX + I,Y - T 
NEXT : HCOLOR= CL: GOTO 30 
FOR I = 1 TO 300: HCOLOR= 3: HPLOT 
X,V 
HCOLOR= O: HPLOT X,Y: NEXT 
HCOLOR= CL: HPLOT X,Y: GOTO 30 
VTAB 21: HTAB 1: CALL - 958: INPU 
T "NOM DE L’IMAGE ET DRIVE ‘":RPS, 
D: IF LEN (RPS) = O OR D < 1 OR 
D > 2 THEN 1000 


PRINT CHRS (4)'"BSAVE"RPS",AS2000, 
LSI1FFF,D"D 

PRINT ‘IMAGE SAUVEGARDEE*® 

GOTO 30 

ONERR GOTO 5000 

VTAB 21: CALL “+ 958: INPUT ‘NOM D 


E L’IMAGE ET DRIVE Ô‘“;RS,D: PRINT 
CHRS (4)'""BLOAD"RS",D"D: GOTO 30 
VTAB 21: HTAB 1: CALL - 958: PRIN 
T "ATTENTION FIN=0 CONTINUE=1 ‘* 
;:: GET RS: PRINT RS: IF R& = ‘"O" 
THEN TEXT : HOME : END 


Porn's n° 19 
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1110 IF R$ < > “1” THEN 1100 29320 IF MIDS (CDS,K,1) < > AS THEN 29 

1120 GOTO 30 40 

1150 VTAB 21: HTAB 1: CALL - 9S8: PRIN | 2930 FG = K:K = LEN (CDS) 
T “ETES-VOUS SUR O/N ‘“;: GET RS: 29340 NEXT K 
PRINT R$: IF RS = “O" THEN HGR : | 2950 IF FG < > O THEN 2990 
GOTO 20 2960 FG = O: FOR K = 1 TO LEN (CES) 

1160 GOTO 30 2970 IF MIDS (CES,K,1) < > AS THEN 29 

2000 DATA 65,14,17,17,31,17,17,17,66,3 80 
0,17,17,30,17,17,30,67,14,17,16,1 2975 EFG = K + 3S5S:K = LEN (CES) 
6,16,17,14,68,30,17,17,17,17,17,3 | 2980 NEXT K 
0 2930 IF FG = O THEN PRINT ‘‘*;: GOTO 3 

2010 DATA 69,31,16,16,30,16,16,31,70,31 O 
,16,16,30,16,16,16,71,14,17,16,19 | 3000 IF X + 5 > 279 THEN PRINT ““;:: GO 
»17,17,14,72,17,17,17,31,17,17,17 TO 30 

2020 DATA 35,10,10,31,10,31,10,10,74,1, | 3001 IF Y + 7 > 159 THEN PRINT “*:: G 
1,1,1,1,17,14,75,17,17,18,28,18,1 OTO 30 
7,17,76,16,16,16,16,16,16,31 3005 HCOLOR= 3 

2030 DATA 77,17,27,21,17,17,17,17,78,17 | 3010 FOR L = 1 TO 7 
»25,21,21,19,17,17,79,14,17,17,17 | 3050 V = TBx(FG,L) 
,17,17,14,80,30,17,17,30,16,16,16 | 3060 IF FG > 35 THEN 3090 

2040 DATA 81,14,17,17,17,21,19,15,82,30 | 3070 IF INT {V / 16) = 1 THEN HPLOT X 
»17,17,30,20,18,17,83,14,16,16,14 + 1,Y + L:V = V - 16 
»1,1,14,84,31,4,4,4,4,4,4 3080 IF INT (V / 8) = 1 THEN HPLOT X 

2050 DATA 85,17,17,17,17,17,17,14,86,17 + 2,Y + L:V = V - 8 
»17,17,17,17,10,1,87,21,21,21,21, | 3090 IF INT (V / 4) = 1 THEN HPLOT X 
21,21,10,88,17,10,10,4,10,10,17 + 3,Y + L:V = V - 4 

2060 DATA 89,17,10,4,4,8,16,16,90,31,1, | 3100 IF INT CV / 23 = 1 THEN HPLOT X 
2,4,8,16,31,45,0,0,0,0,31,0,0,S0, + 4,Y + LV = V - 2 
14,17,1,2,4,8,30 3110 IF V THEN HPLOT X + S,Y + L 

2070 DATA 51,30,1,1,14,1,1,30,52,16,16, | 3120 NEXT L: GOTO 30 
16,18,31,2,2,53,30,16,16,28,1,1,2 | 5000 VTAB 21: HTAB 1: CALL - 9358: PRIN 
8,54,14,17,16,30,17,17,14 T “ERREUR. .-..TAPER <<CRETURN>> 

2080 DATA 55,31,1,1,14,4,8,16,56,14,17, ‘1 INPUT “*;RS$: GOTO 30 
17,14,17,17,14,57,14,17,17,14,1,1 | 9393 REM 
,14,46,0,0,0,0,6,6,0,73,7,2,2,2,2| 10000 REM INIT. CARACTERES 
DR 7 10001 REM 

20930 DATA 49,2,6,2,2,2,2,7,32,0,0,0,0,O 10010 NC = 39:CD$S = ‘“ABCDEFGH#JKLMNOPQORS 
,0,0 TUVWXYZ-23456789":CES8 = "“.I1 * 

2300 VTAB 21: HTAB 1: CALL - 958: PRIN| 10020 DIM TBx(NC,7) 
T "CARACTERE: “;: GET AS: PRINT A | 10030 FOR I = 1 TO NC: FOR J = O TO 7: 
g READ TB%(I,J): NEXT J: NEXT I 

2910 FG = O: FOR K = 1 TO LEN (CD#) 10040 RETURN 

Programme INVERSION VIDEO HGR | Récapitulation 


Assembleur SCII 
1000 # INVERSION VIDEO HGR 
1010 -OR $5300 
1020 MEM -EQ S17 
1030 LDA #$20 
1040 STA MEM+1 
1050 LDA #00 
1060 STA MEM 
1070 TAY 
1080 DEB LDA CMEM),Y 
1090 EOR #SFF 
1100 STA (MEM),Y 
1110 INY 
1120 BNE DEB 
1130 INC MEM+1 
1140 LDA MEM+1 
1150 CMP #S40 
1160 BNE DEB 
1170 RTS 
Pom's n° 10 


Inversion VIDEO HGR.OBJ 


#*300.31B 

0300- A9 20 85 18 A9 O0 85 17 
0308- A8 B1 17 49 FF 91 17 C8 
0310- DO F7 E6 18 AS 18 C9 40 
0318- DO EF 60 O0 


Un de nos lecteurs. Yves Opizzo. nous a adressé un 
programme de gestion de tournois d'échecs écrit en 
Basic et assez bien fait. Compte tenu de la particularité 
de ce programme. nous ne comptons pas le puilier 


Les lecteurs intéressés peuvent envoyer une disquette 
avec une enveloppe timbrée {pour le retour de la dis- 
quette) à Yves Opizzo - Rue de la Poste - 84760 St 


Martin de la Brasque. 
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Heureux possesseurs 


d'un Apple 
JL, IE, le, ou [I 


VOICI votre réseau. 
CALVADOS 


e Ouvert depuis juin 1982, c'est le réseau choisi par Apple en France et par 
ses concessionnaires. 




















e Bases de données boursières (bourses françaises et étrangères). 


e Bases de données proposées par Apple pour enrichir votre pratique de 
l'ordinateur personnel : 
BDT : Base de données sur le matériel Apple 
BDM : Catalogue de matériels Apple et compatibles 
BDL : Catalogue de logiciels Apple et compatibles. 


e Transfert de fichiers et de documents {traitement de texte et acalc») entre 
tout Apple où qu'il soit en France, avec conversion automatique QWERT Y- 
AZERTY et Apple ][, //e, ///. 


e Messagerie électronique et panneau d'annonces accessibles à partir de tout 
point du territoire national. 


e Constitution de réseaux privés sans investissements et fonctionnant avec 
tout matériel. 


e Constitution de bases de données privées pour consultation à distance sur 
tout matériel. 


e Pour les SSCI et créateurs de logiciels, un contact immédiat avec plus de 
170 revendeurs { 200 fin 1983), avec possibilité de diffusion de messages 
promotionnels. 


e Transfert d'informations entre disquettes et bandes magnétiques standard. 


e Des tarifs qui font de Calvados le moyen de communication et le serveur le 
moins cher du marché. Conditions spéciales pour clubs. 


Boîte Postale 21-07 75327 Paris Cédex 07 - Tél. 
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01216 FERNEY-VOLTAIRE 
CIP 

43bis. Av. du Jura 

(58} 40.62.34 

CALVA. 1186 


02100 SAINT QUENTIN 
COGNET 

21, Rue Vict r Basch 
(23)62.72.89 

CALVA 1087 


03200 VICHY 

03 INFORMATIQUE 

7, Rue Voltaire 
(70)41.27.50-CALVA 1031 
06000 NICE 

D.S.A. INFORMATIQUE 
5. Bd Bebouchage 

(193) 85.15.96 

CALVA 1125 


06000 NICE 

MEDIA SOFT 

27, Rue Delille 
(93)85.2806-CALVA 1073 
06000 NICE 

SORBONNE INFORMATIQUE 
40, Rue Gioffredo 
(93)8517.55-CALVA 1872 
06000 NICE 

MCS 

7, Rue Bante 

(93) 96.50,55-CALVA 1054 


06150 CANNES LA BOCCA 
ONDE MARITIME 

28, Boulevard du Midi 
(93)47.44.30-CALVA 1024 


06600 ANTIBES 

ESPACE INFORMATIQUE 
1, Chemin de Saint-Claude 
(93}74.78.@1-CALVA [I(M9 
06700 ST LAURENT DU VAR 
MOS COMPUTERLAND 
Avenue Léon Béranger 
(93)07.61.12-CALVA 1129 
06700 ST LAURENT DU VAR 
POINT MICRO 

CAP 3000 

(93)31.2440 -CALVA 1046 
MONACO 

MICROTEK 

2, Bd Raïnier 111, Monaco 
(93)50.43.44 -CALVA 1003 
11000 NARBONNE 

R.1Li. INFORMATIQUE 
5. Quai Vallière 
(68)65.15.83 - CALVA 1849 
13001 MARSEILLE 

FNAC MARSEILLE 
Centre Bourse 

(91) 91.30.62-CALVA 1149 
13005 MARSEILLE 

ELP INFORMATIQUE 
20, Rue Hugueny 
(91394,91,13 - CALVA 1056 
13006 MARSEILLE 
INTERSOFT 

64. Rue de Prado 

CALVA 1183 


13686 MARSEILLE 
S.M.I.A. 

33A, Avenue Jules Cantini 
(91)37.04.26 - CALVA 1113 
13906 MARSEILLE 
COMPUTERLAND CPL 
1, Av. de Corinthe 

{91} 78.02.02-CALVA 1004 
13006 MARSEILLE 
ELECTRONIC SERVICE 
COMPUTER 

39, Rue Lieutaud 

CALVA 1161 

138607 MARSEILLE 
PROVENCE SYSTEM 
74. Rue Sre-Le St James: 
(91)33.22.33 - CALVA 1055 
13008 MARSEILLE 
MEDIATEC 

485, Avenue du Prado 
(91)71.45.45 - CALVA 1112 
13008 MARSEILLE 
MICROMAG 

C.C. MERMOZ 

111, Rue J. Mermez 

(91) 71.79.13-CALVA 1132 
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—L# RÉSEAU MICRO-INFORMATIQUE ———— 


13186 AIX EN PROVENCE 
ECO INFORMATIQUE 
Boulevard Coe 

{42} 27.11.48-CALVA I115 


1266 ARLES 


310086 TOULOUSE 
SOUBIRON 

9, Rue J.F. Kennedy 
(61)21.64.39 - CALVA 1020 


33000 BORDEAUX 








LUDO SIVEA BORDEAUX 
27, Rue de là République 9, Rue de Lalande 
CALVA 1139 (56)91.55.08 - CALVA 1122 
13708 VENELLES 34000 MONTPELLIER 
SOPROGA MICRO 34 


Avenue de là Mouliero 
(42)61.1243 - CALVA 1087 

14300 CAEN 
COMPUTERLAND CAEN 

12, Rue St Pierre 

{31)85.62.48 - CALVA 1898 

14390 TRONQUAY 
NORMANDIE INFORMATIQUE 
Résidence la Tuilerie 

(31}92.56.89 : CALVA 1074 





21000 DIJON 

O.M.G. 

20. Rue Michelet 
(80)30.12.76 - CALVA 1645 
21006 BIJON 
LASOBIKOR 

7, Rue Monge 

(80)30.09.70 - CALVA 1014 
21000 DIJON 

SETTEM 

36, Rue Jeannin 
(80)66.16.43 - CALVA 1033 
22000 ST BRIEUC 
CENTRE INFORMATIQUE 
BRETON 

19, Rue de Rohan 

(91) 61.00.54-CALVA 1082 


7, Cours Gambetta 
(67)92.91.23 - CALVA 1080 
34130 VALERGUES 
C.E.B.E.A. 

Route Nationale 113 
(67)71.76.69 - CALVA 1079 
35000 RENNES 
COMPUTERLAND 
BRETAGNE 

13, Avenue du Mail 
(99)5447.12 - CALVA 1011 
35000 RENNES 
X-MATIC 

lél, Avenue Général Patton 
{99)38.31.80 - CALVA 1121 
35100 RENNES 

DELTA MICRODIN 

4, Place de Bretagne 
(99)30.65.18 - CALVA 1120 
35000 TOURS 

A.R.E.I. 

8, Allée du Manoir 








(47) 64.69.93-CALVA 1099 


37000 TOURS 

BOUTIN INFORMATIC 
36. Rue Marceau 
(47)20.51.33 , CALVA 1060 
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25200 MONTBELIARD 
MICRO ALPHA SOFT 
11. Impasse du Lacquet 
(8436.92.33 - CALVA 1018 


37008 TOURS 
POLY-SOFT 

67, Rue Michel Colombe 
(47)66.6649 - CALVA 1010 





26500 BOURG-LES-VALENCES 
ECA ELECTRONIQUE 

22, Quai Thannaron 

(751 42.68.88-CALVA 1153 
29000 QUIMPER 

MATRICE DEVELOPPEMENT 
2, Venelle de Kerges 
(98)55.75.93 - CALVA 1094 
29200 BREST 

LA BOUTIQUE 
INFORMATIQUE 

156, Rue Jean Jaurès 
(98)44.32.79 - CALVA 1107 
30000 NIMES 

ET E 

58, Rue Pierre Semard 
(66)36.02.52 - CALVA 1111 
30000 NIMES 

ETI 

58, Rue Pierre Sémard 
CALVA III 

30100 ALES 

ARCOMEL 

8bis, Rue Mistral 
(66152.15.91 - CALVA 1083 

31000 TOULOUSE 
BUREAUMATIQUE 

4, Promenade des Capitouls 
(61)21.87.27 - CALVA 1128 








37000 TOURS 
SELECTRON 

20-24, Rue de Jérusalem 
(47)20.80.70 - CALVA 1093 
38100 GRENOBLE 
GAMMA INFORMATIQUE 
9, Cours de la Libération 
(76)96.30.05 - CALVA 1048 
38100 GRENOBLE 

FNAC GRENOBLE 

3, Grand-Place 

(76) 09.46.63-CALVA 1147 
45000 ORLEANS 

A.G.0. 

48, Bld Alexandre Martin 
(38)5445,13 - CALVA 1090 


45 OREEANS @1 

A.M.C. 

13, Rue des Minimes 
G8)62.6258 - CALVA 1116 


46013 NANTES 

SIVEA 

121, Bd Gabricl Guist'hau 
(4@)47.5309 - CALVA 1897 


49000 ANGERS 
INFORMATIQUE SERVICE 
42, Rue Parcheminerie 








(41) 88.95.07-CALVA 1134 


51188 REIMS 
ORGANIGRAMME 

lé, Rue Emile Zola 

(26) 88.51.13-CALVA 1137 
53000 LAVAL 

SLAD INFORMATIQUE 
29, Rue Ambroise Paré 
(43492545 - CALVA 1026 
54000 NANCY 

JEAN VLASTOS 
MICRO INFORMATIQUE 
143, Rue Sgt Blandon 
(8)341.26.16 - CALVA 1130 


54000 NANCY 
PRECILAB 

96, Rue Stanislas 
(8)337.06.78 - CALVA 1016 


54400 LONGWY 
RANDOM 

18, Rue Mer 

{8} 224.80. 11. CALVA 1081 
54520 LAXOU 

SEMITEC 

69. Rue de Maréville 
(8340.43.38 - CALVA 1008 








56100 L@RIENT 
L'ORDINATEUR 56 

11. Quai des Indes 

(97) 64.52.54-CALVA 1108 
57000 METZ 

LA MICRO BOUTIQUE 
ECONOMAISON 

3, Rue Paul Bezanson 
(82775.41.56 - CALVA 1114 
57000 METZ 

FNAC METZ 

Centre Saint Jacques 

14, Rue Féte-d'Or 

{81 736.16.22-CALVA 1157 
57008 METZ 

LA MICRO BOUTIQUE 
3, Rue Paul Bezanson 
CALVA lll4 

57110 YUTZ 
MICROSERVICE 

B.P. 130-CALVA 1133 
57808FREYMING- ERLEBRACH 
CENTRE MICRO- 
INFORMATIQUE 

3, Place de la Gare 
(8)781.14,89 - CALVA 1030 
59000 LILLE 

M.B.D.C. 

172, Ruc Soltérino 

CALVA 1@6l 

59000 LILLE 

ENAC LILLE 

9, Place du GI de Gaulle 
(20) 57.88.43 -CALVA 1158 , 
59000 LILLE 

RYO INFORMATIQUE 
42, Rue de Paris 
(20)75.92,23 - CALVA 1076 


59000 LILLE 

SIVEA 

21bis, Rue de Valmy 
(20)57.88.43 - CALVA 1075 
59300 VALENCIENNES 
MICROMEGA 

38, Rue des Famars 
{27)42.30,30 - CALVA 1086 


59700 MARCQ EN BAROEUL 
MICRODATA 
INTERNATIONAL 

920, Avenue de la République 
(20) 98.60.,06-CALVA 1084 
59800 LILLE 

PAMP MICRO-INFORMATIC 
$, Rue de Pas-Nouveau Siècle 
(20)5791.87 - CALVA 1663 
608103 CREIL 

QUENEUTTE 

22, Rue de la République 
(4)425.04.26 - CALVA 1032 
61000 ALENCON 

TEMPS-X 

42. Rue de Laitre de Tassigny 
CALVA 1156 

62000 ARRAS 

SICORFE 

18bis, Rue Lamartine 

(21) 23.08.56-CALVA 1144 
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63000 CLERMONT-FERRAND 
FLAGELECTRIC 

142, Avenue Mermoz 
(73)92.13.46 - CALVA 1119 


63008 CLERMONT-FERRAND 


NEYRIAL INFORMATIQUE 
3, Cours Sablon 

(73)92.89.50 - CALVA 1110° 
64000 PAU 

OBBO ABDOUR 

14, Bld Alsace-lorraine 

(59) 55.43.47-CALVA 1138 


64100 BAYONNE 

LE CALCUL INTEGRAL 
3, Rue A. Briand 
(59)55.43.47 - CALVA 1089 
67000 STRASBOURG 
CILEC 

18, Quai St Nicolas 
{88)37.31.61 - CALVA 1015 
67000 STRASBOURG 
FNAC STRASBOURG 
C.C. Mäaison-Rouge 

Place Kléber 

(88) 22.03.39-CALVA 1151 
67000 STRASBOURG 
MICRO-MAT 

30, Rue Geiler 
(88)60.68.68 - CALVA 1077 
67200 STRASBOURG- 
KOENIGSHOFFEN 
CEBEA 

89A, Rue des Romains 
CALVA 1079 

67200 STRASBOURG 
WALZ INFORMATIQUE 
89, Route des Romains 
(88)29.54.55 - CALVA 1105 


68000 COLMAR 

FNAC COLMAR 

1, Grande Rue 

(89) 23.32.12-CALVA 1148 
68200 MULHOUSE 

FNAC MULHOUSE 

1, Place Franklin 

(89) 42.09,55-CALVA 1160 
69002 LYON 

FNAC LYON 

162, Av. de là République 





(7) 842.26.49-CALVA 1146 


69003 LYON 

AB INFORMATIQUE 

18, Rue Pailleron 
(7)851.44.86 - CALVA 1041 
69003 LYON 

ALPHA SYSTEMS 

84, Av. du Maréchal de Saxe 
(7)860.89.34 - CALVA 1036 





69003 LYON 
POINT MICRO 
LA PART DIEU 
183. Rue Garibaldi 


(7) 895.20.82-CALVA 1023 


69003 LYON 

BIMP 

20. Rue Servient 

(7) 860.84.27-CALVA 1058 
69006 LYON 

ALTI 

39, Rue Barrier 
(7)824.00.03 - CALVA 1042 
69006 LYON 
ECO-INFORMATIQUE 
50, Cours Vuitton 
(7)894.60.56 - CALVA 1066 





71000 MACON 
CLINIQUE ELECTRONIQUE 
369. Rue de Paris 
(85)38.20.84 - CALVA 1053 
72000 LE MANS 

OMB LE MANS 

42, Rue Einstein 

(43) 24.99.40-CALVA 1154 
72000 LE MANS 
AESCULAPPLE 

4, Rue de Richebourg 


(43)24.97.80 - CALVA 1067 


SERVICE 


CALVADOS 


LE RESEAU MICRO INFORMATIQUE 


72000 LE MANS 

ASCI 

115, Rue Nationale 
(43)84.28.28 - CALVA 1095 


74000 SAINT GEVRIER 
SIGEA 

34, Avenue de la République 
(50)57.02.80 - CALVA 1043 


74102 ANNEMASSE 
D.S.A. MICRO 

15, Rue Adrien Ligue 
(50)38.31.40 - CALVA 1044 


75001 PARIS 

MICRO SUP 

6, Place Vendôme 
(1)260.67.15 - CALVA 1057 


75 1 PARIS 

FNAC FORUM 

|, Rue Pierre Lescot 

{1) 261.81.18-CALVA 1150 


75006 PARIS 

FNAC MONTPARNASSE 
136, Rue de Rennes 

{]} 5443912-CALVA 1150 


75006 PARIS 
MICRODATA 
26, Rue de Condé 
CALVA 1051 


75007 PARIS 

M.V.I. 

27, Rue Vaneau 
(1)551.66.77 - CALVA 1062 


75008 PARIS 

A.M.E. 

172, Boulevard Haussman 
(1)562.96.40 - CALVA 1059 


FSU PARIS im re 
EUROPE 

COMPUTER SYSTEMES 

ié. Rue Washington 

CALVA 1092 


75008 PARIS 
L'ORDINATEUR 
INDIVIDUEL AFFAIRES 
30, Rue Cambacérès 
(1)742.91.00 - CALVA 1050 


75008 PARIS 

POINT MICRO BOETIE 
16. Rue de la Boétie 
(1)265.8935 - CALVA 1019 


75008 PARIS 

S.I.V.E.A. 

13, Rue de Turin 
(1)522,70.66 - CALVA 1052 


75009 PARIS 
COMPUTERLAND MOS 75 
8, Ruc Bleue . 

(1)824 65.88 - CALVA 1064 


75009 PARIS 

JCR ELECTRONIQUE 

58, Rue Notre Dame de Lorette 
(1)282.19.80 - CALVA 1078 


75009 PARIS 

L.P.S. BUREAU 

46, Rue Laffitte 
(1)878.26.45 - CALVA 1007 


75009 PARIS 

INTERNATIONAL COMPUTER 
29, Ru de Clichy 

{1) 285.2455-CALVA 1103 


75010 PARIS 
SOFT MACHINE 
31, Bd de Magenta 
CALVA 1088 


75010 PARIS 

HELLO 

1, Rue de Metz 

(1) 523.30.34-CALVA 1143 


75011 PARIS 

MICRO INFORMATIQUE 
DIFFUSION 

51bis, Av. de la République 
(1)357.83.20 - CALVA 1009 








75011 PARIS 

TERTIAL 

14, Rue Jules Vallés 
CALVA 1140 

75012 PARIS 

ELLIX 

7, Rue Michel-Chasles 
(1)307.6081 - CALVA 1005 


75012 PARIS 

GESTION MICROS 

ET SERVICES 

212-214, Avenue Daumesnil 
(1)345.28.52 - CALVA 1068 


75015 PARIS 

ILLEL CENTER 
INFORMATIQUE 

143, Avenue Félix Faure 
(15549748 - CALVA 1001 


75015 PARIS 
INFORMATIQUE 
ELECTRONIQUE FRANÇAISE 
228, Rue Lecourbe 

(1)828.06.01 - CALVA 1006 


75015 PARIS 

MICRO ASSISTANCE 
66, Rue Castagnary 
(13530.05.28 - CALVA 1037 


75015 PARIS 

SIDEG 

170, Rue St Charles 
(1)557.79.12 - CALVA 1013 


75015 PARIS 
KA 


212, Rue Lecourke 


{1) 533.13.50-CALVA 1027 


75015 PARIS 
DIF ELECTRONIQUE 
28, Rue Miollis 


(1) 566.68.38-CALVA 1142 


75016 PARIS 
MICRODATA 
INTERNATIONAL 

50. Ruc Raynouard 
(1)525.81.64 .- CALVA 1851 


75016 PARIS 

SOCIETE ANTIGONE 

12, Avenue Pierre ler de Serbie 
CALVA 1028 


75017 PARIS 

B.S.C. INFORMATIQUE 
39, Ruc ardinet 
(1)763.95.,33 - CALVA 1117 


75017 PARIS 

NASA ELECTRONIQUE 

46, Avenut de la Grande Armée 
CALVA 107] 


75017 PARIS 
GAMIC 
27, Rue Guersant 


(1) 574.02.92-CALVA 1131 


75017 PARIS 
RANDOM FRANCE 
75, Bd Pereire 


(1)227.59.20 - CALVA 1126 


75017 PARIS 

SOCIETE FRANCAISE 
D'INFORMATIQUE 
APPLIQUEE 

41, Rue la Condamine 
CALVA 1065 


75018 PARIS 

B.1.P. L'INFORMATIQUE 
PERSONALISEE 

22, Rue Joseph Dijon 


(1)255.44.63 - CALVA 1070 


75018 PARIS 

BMI 

Ibis, Ru Vautvenargües 
CALVA 1039 





76000 ROUEN 

L'ESPACE TEMPS REEL 
9, Quai du Havre 
(35)89.29.11 - CALVA 1101] 


Librairie dépositaire de la documentation technique Calvados : 


78100 ST GERMAIN EN LAYE 
ORDI GESTION 

1, Rue leuviers 

(3)51.58.25 - CALVA 1109 


78117 CHATEAUFORT 
AVIRADIO 
Toussus-le-Noble 
(3)956.22.20 - CALVA 1127 


78190 TRAPPES 





, gust 
(22) 92.39.46-CALVA 1163 
84000 AVIGNON 
SYNERGIE INFO 
71, Bld Montclar 
(90) 86.52.32-CALVA 1035 


85000 LES SABLES D'OLONNE Cdx 


86000 POITIERS 

LISTE INFORMATIQUE 
34, Bd Solférino 
(49)41.43.86 - CALVA 109] 
87000 LIMOGES 
MICROLIM 

&]. Boulevard Gambetta 
CALVA 1118 

87000 LIMOGES 
MICROLIM 

81. Bd Gambetta 
{55)3410.12 - CALVA 1118 








2. Av. Descartes-CALVA 1162 


92086 PARIS-LA DEFENSE 
POINT-MICRO 
Tour Neptune - CALVA 1023 


92120 MONTROUGE 
SERAP MICRO 

15, Rue Louis le Jeune 
CALVA 1155 


95200 SARCELLES ZI. 


(3)419.0424 - CALVA 1124 


95526 CERGY-PONTOISE Cdx 
ORGAMATIQUE 
9, Chaussée J. César - B.P, 304 
(3)030.37.85 - CALVA 1021 

7200 MARTINIQUE 
MICRO-TRAITEMENT 
Centre Commercial Dillon 
Fort de France 
(596)73.91.45 - CALVA 109% 


97400 LA REUNION 

MICRO SYSTEMES SERVICE 
74, Rue Labourdonnais 

CALVA 1102 


pressions Latour-Maubourg - Paris - Tél.: 


LA NACELLE — 2, Rue Campagne-Première 75014 PARIS - Tél. : 322.56.46. 
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La communication avec l’Apple 


Plan de l'article : 


— Importance des communications 


— Un bref aperçu de léquipement 
nécessaire 


— Les services facilement utilisables 
en France 


Importance des 
communications 


Aujourd’hui, doter votre Apple de 
possibilités de communication avec 
d'autres Apples ou d'autres ordina- 
teurs n’a plus besoin d’être justifié. 
La prolifération des systèmes de 
courrier électronique, des services of- 
ferts sur ordinateur, des bases ou 
banques de données doit aujourd'hui 
nous motiver à essayer de compren- 
dre la communication. 


Les techniques de communication ne 
sont pas spécialement compliquées, 
mais il faut bien avoir conscience du 
coût relativement élevé de l'équipe- 
ment (5000 FF minimum} et du 
temps nécessaire à la maîtrise des lo- 
giciels permettant de communiquer, 
sans compter l'apprentissage des 
commandes évidemment différentes 
pour chaque système interrogé. 


L'équipement nécessaire 


Îl est nécessaire d’avoir cinq élé- 
ments : 


— Une ligne de téléphone ; 

— Une carte de communication ; 

— Un “modem”: 

— Un câble pour relier le modem à 
la carte de communication ; 

— Un logiciel de communication. 


Quiconque a essayé de monter un 
modem sur une carte série et a voulu 
relier par un câble ces deux équipe- 
ments s’est rendu compte - non pas 
de la difficulté technique que cela re- 
présente - mais du temps nécessaire 
à mettre tout le système au point. Il 
faut d'abord s'assurer que la carte 
série est bien configurée pour entrer 
en communication avec un modem 
et non pas avec une imprimante, que 
le câble possède une fiche mâle à un 
bout et une fiche adéquate à l’autre 
bout, que les ’’switches” de la carte 
série sont bien adaptés à la vitesse 
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du modem, à la parité choisie {la pa- 
rité permet de vérifier que les bits qui 
composent le caractère transmis sont 
cohérents, un système de chiffres clés 
en quelque sorte). bref, plusieurs 
heures de mise au point et de lecture 
de manuels plus ou moins bien 
écrits, pour arriver à ses fins. 


En fait, il existe une solution simple 
disponible à ce jour pour résoudre 
ces problèmes : c'est le système No- 
vation. Îl est bien certain qu’à partr 
de l’année prochaine d'autres systé- 
mes purement français seront com- 
mercialisés et auront en plus des pos- 
sibilités de Vidéotex (NDER : voir à 
ce sujet la rubrique micro-informa- 
tions}... mais restons-en pour l'instant 
à ce qui existe. 
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Le système Novation 


Il s’agit en fait d'un système complet 
de communication et non seulement 
d’un modem intégré dans une carte 
de communication. La version 
CCITT, disponible en France et 
agréée par les PTT, comprend l’équi- 
valent d’une carte série, d’un modem 
et d'un câble de connection. Le tout 
est livré avec un logiciel dénommé 
Com-Ware, dont les fonctions sont 
décrites en détail dans un manuel ré- 
digé dans un français clair et relative- 
ment complet. Pour lutilisateur dé- 
butant, c'est sans conteste ce qu'il y 
a de plus facile pour communiquer. 


La caïte en elle-même est superbe 
dans sa fabrication, mais incomplète 
dans ses possibilités par rapport à 
celles commercialisées aux Etats- 
Unis. 


René Fakir 


Les deux grands atouts du système. 
outre sa compacité, résident dans la 
composition automatique des numé- 
ros de téléphone, et la possibilité de 
transférer à haute vitesse par blocs 
(environ 120 caractères par seconde) 
des fichiers de tous types : Text, Bi- 
naire ou Âpplesoft. Le tout est inté- 
gré dans le logiciel Com-Ware. 


L'ensemble des commandes disponi- 
bles figure ci-dessous : 


A Aâppie auto 

C Mode terminal 

U Répense auto 

*X Envoi mémoire 

S Sauver mémoire 

L Charger mémoire 
U Vérifier mémoire 
K Clavier -; mémoire 
F Transfert rapide 
R KReconfiquration 
D Commande DOS 

£ Imprimante Off 

H  Raccrocher 

M Terminai mémoire 
Q Effacer mémoire 
B Imprimer mémoire 
J Voir mémoire 

1 Half/Fuli duplex 
G Ecoute.Cff 

Q Quitter 


Bien que très sophistiqué dans sa 
conception, le modem n’est pas par- 
ticulièrement fragile. Seule, la détec- 
tion de porteuse (son qui indique 
l'établissement de la communication 
est quelquefois délicate et nécessite 
impérativement lutilisation du petit 
écouteur livré avec la carte. 


Un secret : il est possible de compo- 
ser un numéro de téléphone habituel 
via le modem et de basculer en 
mode transmission de la voix et non 
en mode transmission de données. 
Cela vous permet d'entendre les 
messages habituels du type “il n'y a 
pas d'abonné...”. Pour cela, appuyez 
sur ”’P" dans le menu général obtenu 
par ESC. 


En résumé, le système Novation est 
imbattable par son prix, ses fonctions 
intégrées, sa documentation et sa fa- 
cilité d'utilisation. 


EME ET 


41 





tin 


+. 


HANWEAGRSETLZ 
SALATÈSRENT A 


CET L 


ANT TI ILES. 


_ 


Par contre, i est spécifique à l'Apple 
I ou //e et ne peut donc fonctionner 
sur donc d'autres ordinateurs, y 
compris l'Apple ///. 


Les services facilement 
utilisables en France 


Un excellent échantillon des possibili- 
tés de services offerts en télécommu- 
nication sur l'Apple figure dans un 
récent article de l'Expansion rédigé 
par Joël de Rosnay (N° 222 du 
23/9/83, pp. 181-183). Dans cet arti- 
cle sont successivement décrites : 


— une connexion avec le système de 
courrier électronique MISSIVE (un 


système professionnel très complet 


qui permet aussi l'envoi de télex 
depuis l'ordinateur) ; 


— une connex'on avec la SOURCE. 
le plus célèbre des réseaux améri- 
cains destinés au grand public, dispo- 
nible depuis la France par l'intermé- 
diaire de Transpac ; 


— une connexion avec AGORA. base 
de données recueillant les dépêches 
de l'agence France Presse via le ser- 
veur G.CAM : 


— une connexion à la base de don- 
nées du CNRS (Pascal) via le serveur 
QUESTEL de Télésystèmes. serveur 
spécialisé dans les bases de données 


techniques, voir aussi à ce sujet 
"Allo, Questel” dans le Poms 8, 


— une connexion via Transpac à 
DIALOG, serveur américain permet- 
tant l'accès à plus de 150 (oui, 150 !) 
bases de données. L'encyclopédie 
mondiale au bout des doigts. mais à 
quel prix !!! 


Il serait possible d'écrire un livre en- 
tier sur chacun de ces serveurs. Le 
manuel de la Source à lui seul 
comporte environ 200 pages. Parmi 
les systèmes développés en France, 
une mention spéciale doit être accor- 
dée à CALVADOS, système partcu- 
lièrement intéressant pour les utilisa- 
teurs d'Apple. 


Le système Calvados 


Calvados est né dans le cerveau d’un 
possesseur d'Apple qui rêvait de le 
faire communiquer avec d’autres ma- 
chines. C'est donc un système très 
orienté Apple”, Apple France avant 
fortement recommandé à ses reven- 
deurs de s'abonner afin de constituer 
un réseau de communication entre 
spécialistes. Le système s'est progres- 
sivement étoffé jusqu’à être au- 
jourd’hui particulièrement bien au 
point. 


a2 


Les points forts 


® Tout d'abord le nombre d'abon- 
nés, environ 300, en très grande ma- 
jorité utilisateurs d'Apple. Votre re- 
vendeur habituel possède certai- 
nement un numéro avec une boîte 
postale dans laquelle vous pouvez 
laisser des messages. Avec un peu de 
chance, il vous répondra s'il consulte 
régulièrement sa boîte. Tous les utili- 
sateurs figurent dans un annuaire 
sous un numéro de code. Celui de 
Pom's : 2666. 


e Une messagerie efficace, surtout 
depuis qu'elle est disponible en 80 
colonnes (septembre 83) A cette 
messageïe est reliée une gestion de 
dossiers personnels. L'envoi simul- 
tané à une liste de personnes est 


prévu. Par contre, il n'existe pas 
d'éditeur de texte au niveau du mes- 
sage, les corrections s'effectuant 


avant la validation de la ligne, ce qui, 
à l'usage, n'est pas un inconvénient 
réel. Dans un grand nombre de mes- 
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sageries électroniques, l'éditeur de 
texte au niveau du mot nécessite un 
apprentissage souvent fastidieux de 
touches de commande. 


© Un transfert de fichiers binaire ou 
texte avec acceptation ou refus du 
receveur, C'est l'une des fonctions 
les plus intéressantes de Calvados, 
car elle permet l'envoi de fichiers 
sans nécessiter une connexion simul- 
tanée de l'émetteur et du receveur. 
Bien qu'amelioré récemment, ce 
transfert est encore un peu trop 
compliqué surtout quand il s’agit de 
transférer un fichier provenant d’un 
logiciel de traitement de texte, mais il 
fonctionne très bien. 


e Un accès à des informations tech- 
niques tant sur les matériels que sur 
les logiciels. toutes ces informations 
étant axées sur l’utilisation d'Apples. 


e Un manuel de 46 pages, très soi- 
gné, très complet et rédigé avec hu- 
mour. 


e La disquette de lancement, remar- 
quable de simplicité avec sa procé- 
dure d’auto-connexion. 


Les limites actuelles 


® Tout d'abord, le système de 
copie-écran, qui ne s'effectue pas en 
simultané lors d'une communication, 
mais en mode bloc lorsque le buffer 
correspondant est plein. Cette procé- 
dure n'est pas suffisamment efficace 
car, pendant l'impression, le message 
à l'écran “impression en cours” cii- 
gnote sans qu'il soit possible d'effec- 
tuer une opération quelconque. Ce 
défaut devrait être facilement corrigé. 


e Le nombre d'applications. encore 
insuffisant, mais lié bien sûr aux res- 
sources provenant du nombre 
d'abonnés. Un grand nombre d'ap- 
plications d'utilité générale devraient 
pouvoir être montées si le nombre 
d'adhérents se multiplie (conférences, 
déchargement de programmes pu- 
bliés dans des revues, etc.) Mais, 
pour cela, il est souhaitable que la ta- 
ification, prévue initialement pour les 
revendeurs Apple, soit revue et 
adaptée à l'utilisateur individuel. 


Alors. dans ces conditions, faut-il 
s'abonner ? La réponse est oui sans 
hésitation si l’on acquiert la carte 
modem Novation qui donne droit à 
un essai gratuit . Îl sera difficile en- 
suite de ne pas continuer à utiliser 
lun des courriers électroniques les 
moins chers du marché. 


Pour un partculier, l'abonnement au 
service Calvados revient à 400 FF 
par mois, et donne droit à cinq 
heures de connexion. L'heure sup- 
plémentaire est de 46 francs la nuit 
et de 75 FF TTC le jour. L'inscrip- 
tion initiale coûte 185 francs : on re- 
çoit alors la documentation, un nu- 
méro de compte et une disquette 
contenant le logiciel de communica- 
ton. 


La communication dans 
la fabrication de Pom's. 


Depuis deux numéros, Pom's utilise 
la communication pour la prépara- 
tion des textes destinés à être pu- 
bliés. Pom's met tous ses textes au 
point en traitement de texte avec Ap- 
plewriter //e, quitte à récupérer et 
transformer les textes écrits par les 
lecteurs à l’aide d’autres traitement 
de texte. Une fois les textes bien mis 
au point en Applewriter //e (AW //e), 
ils les enrichit : cela signifie que l'on 
ajoute des chaînes de caractères 
codées pour, par exemple, indiquer 
un changement de police d'impres- 
sion, une modification du corps (taille 
du caractère), le passage en italiques, 
etc Pom's exploite la capacité 
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d'AW /le à utiliser un glossaire pour 
faire cela rapidement: ainsi. en ta- 
pant sur la pomme ouverte et T si- 
multanément, on fait apparaître le 
code d'enrichissement identifiant un 
titre ”$CC63.45”. ce qui signifie 
passage au corps 45 de la police 63 
(gras). 


Une fois le texte enrichi, il est passé 
dans un programme de conversion 
automatique écrit en WPE. le Word 
Processing Language d’AW //e, qui 
recode les caractères réservés chez 
limprimeur. Ainsi. le code ‘’$” est ré- 
servé. ce qui veut dire qu'il faut. en 
WPL, transformer les "$” du texte 
en une chaîne qui donnera finale- 
ment un ”$” chez l'imprimeur. 


L'étape suivante consiste à passer le 
texte ainsi obtenu dans un pro- 
gramme, écrit par Logma, qui recode 


tous les caractères dans les codes re- 
connus par l'équipement de photo- 
composition de l'imprimeur. Ce pro- 
gramme effectue aussi des 
transformations de chaînes. par 
exemple pour remplacer par ‘ê” une 
séquence typique d'AW //e telle que 
"ACTRL-H e”. 


Îl ne reste plus qu'à transmettre les 
textes chez limprimeur, ce pour quoi 
Pom's utilise à présent une carte 
super série et un modem Satelcom: 
la carte Novation nest pas utilisée. 
car les programmes de transforma- 
tion sont écrits en Pascal. qui n'est 
pès transmissible avec la carte Nova- 
tion standard. Dans l'heure qui suit la 
transmission, s'il y a urgence. les pre- 
miers bromures sont disponibles. 


En conclusion, Pom s suit les étapes 
suivantes : 


Pom's s’adresse à tous ses lecteurs 


e mise au point des textes en Ap- 
plewriter //e: 


e adjonction des codes d'enrichisse- 
ment en AW //e: 


© première transformation par un 
programme WPL: 


® recodification avec le programme 
Logma: 


© transmission par modem vers l'im- 
primeur. 


Que gagne Pom's par cette procé- 
dure ? Tout d'abord. il n'est plus né 
cessaire de perdre toute une semaine 
à corriger les textes des bromures, 
comme ce serait le cas si les textes 
étaient composés manuellement. En 
outre, je coût de la composition est 
réduit de moitié, car il n'y a plus le 
coût de l'entrée manuelle. Voilà une 
application de la communication de- 
venue indispensable. 


Quel que soit votre niveau, vous pouvez avoir des informations. des idées ou des programmes à transmettre aux autres. 
Nous vous prions de nous les faire parvenir afin que nous puissions faire partager ce savoir que vous avez acquis. L'idéal 
est de nous envoyer une disquette avec vos programmes et un article en traitement de texte (Applewriter 1 ou Il. ou tout 
fichier TEXT) sur disquette et si possible aussi imprimé. au cas où nous aurions du mal à le récupérer. N'oubliez pas 
d'indiquer votre adresse et votre numéro de téléphone ! 
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Un seul programme, une multitude 
d'applications: CX Base 100 est l'outil 
indispensable pour suivre vos clients, vos 
patients, vos commandes, vos fournis- 
seurs, pour gérer votre trésorerie, votre 
decumentation, vos articles en stocks, 
peur mettre à jour vos tarifs, calculer la 
pare de vos employés, etc. 


Nul besoin de connaître l'informatique; 
définissez vous même votre modèle de 
fichier; vous pourrez, à tout moment, 
sans avoir à réécrire les données, ajouter 
ou retrancher des rubriques; classez, 
sélectionnez vos fiches de multiples 
façens, par mots clés ou selon une cembi- 
naisen de critères tels que “égal” “plus 
grand que” “plus petit que, “différent” 
“compris entre”; faites toutes sortes de 
calculs, corrigez automatiquement une 
sélectien de fiches; présentez les infor- 
mations de votre choix sous différentes 
formes (états, étiqueites) et dans n'im- 
porte quel ordre (alphabétique, numéri- 
que, chrenolegique), etc. 

*Actuellementen promotion 


Sicob Boutique N°67 


CX Dase 4100 &c 


LA GESTION DE FICHIERS 
TOUS AZIMUTS. 


Un programme parfaitement mo- 
dulaire: CX Base 100 est un des pro- 
grammes de CX Système. Si vos besoins 
évoluent, vous pourrez, à tout moment, 
compléter votre programme et, en parti- 
culier, accéder à CX Texte pour un traite- 
ment de texte totalement intégré avec vos 
fichiers. 











CX Base 100 est un logiciel français déve- 
loppé par Contrôle X, et présenté dans un 
coffret luxueux avec une documentation 
complète, abondamment illustrée. 

Contréle X, Tour Maine- Montparnasse, 33, 
avenue du Maine, 75755 Paris. Cedex 15. 
(En Belgique Néotron,37ruede Florence, 
1050 Bruxelles). 
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Datalite 





DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 


Datalife | 


# Data = 











- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4! 


- 5 V4" en 48 et 96 TPI, simple et double face. 


BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 
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Des caractères géants à l’imprimante 


Ce programme permet de générer 
rapidement des caractères géants sur 
l'imprimante pour, par exemple. 
donner un titre à un listing. un ta- 
bleau... Le principe mis en oeuvre ici 
à été repris dans le programme 
d'aide au dessin HGR pour dessiner 
des caractères en haute résolution. 


Analyse du programme 


commence par demander la lar- 
geur disponible puis affiche la liste 
des caractères actuellement définis 
{nous verrons plus loin comment on 
peut là modifier). Tous les ”caractè- 
res’ occupent la largeur de 7 carac- 
tères habituels (1 espace + 5 cases 
+ 1 espace). sauf 1". “1”. ”” et 
l'espace qui en prennent 5. Par 
contre, ils sent tous définis sur une 
hauteur de 7 cases. 


Le programme lit ensuite les DATA 
et les met dans TB%l(l.J). Pour cha- 
que caractère. il y a 8 données. 


- d'abord. le code ASCII en décimal 
(en 2800, par exemple. on trouve 65 
qui est le code de A). 


- puis 7? nombres. un pour chacune 
des 7 lignes de définition du carac- 
tère. 


Ces nombres sont obtenus de la 
façon suivante : 


Une ligne est constituée de 5 cases 
vides ou pleines. soit O ou 1 pour 
chaque case De là à penser à des 
nombres binaires sur 5 bits (avec bit 
de plus faible poids à droite) il ny 
avait qu'un pas vite franchi. puisque 
le décodage se fait alors facilement 
au moyen de divisions successives 
par 2. 


Ainsi. le motif x #**> sera codé 
par : 

1x16 + 0x8 + 1x4 + 1x2 + 1 = 23 
La letire À sera constituée des motifs 
suivants : 


++ cüude 14 
- #} cude 1? 
- Le code à 
rés, Code Zi 
+ + code Fa 
+ æ ride. F 
* # ade 1° 


Les DATA doivent évidemment se 
présenter dans le mème ordre que 
celui des ensembles CD$ et CES 
(celui-ci venant en dernier et conte- 
nant les caractères de largeur 5: 1 
espace + 3 cases + 1 espace). 


On voit donc qu'il sera facile à cha- 
cun de développer son propre jeu de 
caractères (ne pas oublier de modi- 
fier en conséquence NC à la ligne 
140 qui contient le nombre total de 
caractères). 


Le programme demande ensuite le 
titre à imprimer. 1 vérifie que les ca- 
ractères sont effectivement disponi- 
bles et calcule la largeur nécessaire 
(nous serons informés si le titre est 
trop long). Ensuite. la sortie peut être 
dirigée vers l'imprimante ou vers 
l'écran (ce qui permet de tester sim- 
plement et économiquement de nou- 
veaux caractères). Le titre est en 
outre précédé et suivi de deux lignes 
complètes d'étoiles. 


Remarques 


1) Pour une largeur disponible de 80 
caractères. il faut en fait indiquer 79. 


J-F. Groussin 


2) Le programme. tel qu'il est, im- 
prime un caractère en utilisant pour 
chaque case le-dit caractère {ainsi un 
À est dessiné avec des A) et le gra- 
phisme n'est pas toujours très heu- 
reux. On peut alors, soit modifier les 
codes ASCII dans les DATA soit 
mettre à la ligne 3050 : X$= ‘x ”… 


Principales variables 


LI : largeur d'impression disponible 


NC : nombre de caractères disponi- 
bles 


CDS: ensemble des caractères de : 
largeur 5 cases ne 


CE$. ensemble des caractères de 
largeur 3 cases 


TI%{(1) : table des caractères du titre 
(numéros des DATA) 


TB%(L@): code ASCII du caractère 
à utiliser pour le dessin du caractère 


géant s= 
TB%llJ): code du lème caractère 
de la ligne J 


LT : longueur du titre 
A$ : dernier caractère entré 


NT : nombre de caractères entrés 


FG : rang du caractère dans l'ensem- 
ble 
DE : nombre d'espaces â mettre au 


début pour le centrage 


L : numéro de ligne en cours de trai- 
tement 


V : valeur du code 








Programme CARAC INT “E”: NORMAL 
140 NC = 39:CD# = “ABCDEFGH#JKLMNOPORSTU 
VWXYZ-23456789":CES8 = ".Il “ 
$ REM CARACTERES GEANTS A L’IMPRIMANTE | 150 DIM TIx(30),TBx(NC,7) 
(APPLESOFT) 155 POKE 34,7 
6 REM ses===e=2====2-==2=-2222> 160 FOR I = 1 TO NC: FOR J = O TO 7: RE 
AD TBx(I,J): NEXT J: NEXT I 
100 TEXT : HOME : HTAB 11: PRINT "CARAC | 299 REM 
TERES GEANTS“: PRINT : INPUT “LAR | 300 REM ENTREE DU TITRE 
GEUR DISPONIBLE: ";LI 301 REX 
120 PRINT “CARACTERES EXISTANTS: “:: FO | 310 LT = O:TIS = ““: HOME : VTAB 10: HTA 
R I = 65 TO 90: PRINT CHRS (I):: B 1: PRINT "TITRE: *; 
NEXT : FOR I = 48 TO 57: PRINT 320 FOR I = 1 TO 30 
CHRS& (I):: NEXT : PRINT “ #." 330 GET AS: IF AS = CHRS (13) THEN NT 
130 PRINT : PRINT “LARGEUR DES CARACTER = I - 1:1 = 30: GOTO 500 
ES: 7 SAUF 1I,1,.,":: INVERSE : PR | 340 FG = O0: FOR K = 1 TO LEN (CDS) 
* 
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350 IF MIDS (CDS,K,1) < > AS THEN 370 | 2030 DATA 77,17,27,21,17,17,17,17,78,17 
360 FG = K:K = LEN (CDS#) 525,21,21,19,17,17,79,14,17,17,17 
370 NEXT K #m17,17,14,80,30,17,17,30,16,16,16 
380 IF FG < > O©O THEN LT = LT + 7: PRIN | 2040 DATA 81,14,17,17,17,21,19,15,82,30 
T AS::TIX(I) = FG: GOTO 500 17,17,30,20,18,17,83,14,16,16,14 
390 FG = O: FOR K = 1 TO LEN (CES) 1,1,14,84,31,4,4,4,4,4,4 
400 IF MIDS (CES,K,1) < > AS THEN 420 | 2050 DATA 85,17,17,17,17,17,17,14,86,17 
410 FG = K:K = LEN (CES) :17,17,17,17,10,1;687:21,21;21,21, 
420 NEXT K 21,21,10,88,17,10,10,4,10,10,17 
430 IF FG < > O THEN LT = LT + S: PRIN | 2060 DATA 89,17,10,4,4,8,16,16,90,31,1, 
T AS;:TIX(I) = FG + 35: GOTO 500 2,4,8,16,31,45,0,0,0,0,31,0,0,S0, 
440 PRINT ““;: GOTO 330 14,17,1,2,4,8,30 
500 NEXT I: PRINT 2070 DATA 51,30,1,1,14,1,1,30,52,16,16, 
510 IF LT > LI THEN PRINT “TITRE TROP 16,18,31,2,2,53,30,16,16,28,1,1,2 
LONG“: GOSUB 1100: GOTO 8,54,14,17,16,30,17,17,14 
300 2080 DATA 55,31,1,1,14,4,8,16,56,14,17, 
S20 DE = INT (C{LI - LT) / 2) 17,14,17,17,14,57,14,17,17,14,1,1 
S30 INPUT “IMPRIM=I ECRAN=E “:RS$: IF R ,14,46,0,0,0,0,6,6,0,73,7,2,2,2,2 
S = “*]I* THEN PRINT CHRS (4)'"PR# 257 
1“: PRINT CHRS (9) *8ON"'; 2030 DATA 49,2,6,2,2,2,2,7,32,0,0,0,0,0 
S40 GOSUB 3000 ,0,0 
SS50 IF RS = “I THEN PRINT CHRS$ (4)"P | 3000 GOSUB 1000: PRINT 
R#O* 3010 FOR L = 1 TO 7 
560 GOSUB 1100: GOTO 300 3020 IF DE = O THEN 3040 
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939  REM 3030 FOR I = 1 TO DE: PRINT ‘“ “;:: NEXT 
1000 REM SORTIE 2 LIGNES D’ETOILES I 
1001 REM 3040 FOR I = 1 TO NT 
1010 FOR J = 1 TO 2: FOR I = 1 TO LI: P 3050 PRINT * ‘“’;:X$ = CHRS (TBX(TI%EI), 
RINT ‘="";: NEXT 1: PRINT : NEXT J O)3:V = TBXCTIX(I),L) 
: RETURN 3060 IF TI%(I) > 35 THEN 3090 
1100 VTAB 23: HTAB 1: CALL - 93S8: PRIN 3070 IF INT (V / 16) = 1 THEN PRINT X 
T "TAPER UNE TOUCHE “;: GET RS: P 83:V = V - 16: GOTO 3080 
RINT RS: RETURN 3075 3; PRINT “ “; 
1300 REM 3080 IF INT (V / 8) = 1 THEN PRINT XS 
1510 REM LES DATA DEFINISSENT LES CARA 2V = V - 8: GOTO 3090 
CTERES 3085 : PRINT * *:; 
1520 REM 3090 IF INT CV / 4) = 1 THEN PRINT XS 
2000 DATA 65,14,17,17,31,17,17,17,66,3 3:V = V - 4: GOTO 3100 


0,17,17,30,17,17,30,67,14,17,16,1 30935 : PRINT * *: 
6,16,17,14,68,30,17,17,17,17,17,3 3100 IF INT (CV / 23 = 1 THEN PRINT XsS 


O0 33V = V - 2: GOTO 3110 

2010 DATA 69,31,16,16,30,16,16,31,70,31 3105 : PRINT * *:; 
,16,16,30,16,16,16,71,14,17,16,19 3110 IF V THEN PRINT XS;: GOTO 3120 
17,17,14,72,17,17,17,31,17,17,17 3115 + PRINT" %; 

2020 DATA 35,10,10,31,10,31,10,10,74,1, 3120 PRINT ” ”;: NEXT I: PRINT : NEXT L 
1,1,1,1,17,14,75,17,17,18,28,18,1 : PRINT : GOSUB 1000: RETURN 
7,17,76,16,16,16,16,16,16,31 
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Chargement automatique de l’Integer 


En essayant d'explorer le DOS 3.3. 
j'ai découvert qu'il avait sans doute 
été conçu à l'origine pour être utilisé 
sur Apple il et non sur Apple Il+ ou 
Île et que si, ayant besoin du langage 
Applesoft, il ne le trouvait pas en 
ROM ou sur la carte langage, il es- 
sayait automatiquement de le charger 
en 


Possédant pour ma part. et comme 

eaucoup, un Apple Il+ . j'ai adapté 
les routines correspondantes pour 
obtenir un chargement automatique 
du BASIC Entier dans la carte lan- 
gage quand la nécessité s’en fait sen- 
tir. 


Si le BASIC Entier est déjà chargé 
dans la carte. tout se passe normale- 
ment. 


S'il ne l'est pas, on peut utliser les 
instructions suivantes : 


- INT: le BASIC Entier est chargé 
automatiquement, mais l'on reste 
provisoirement en Applesoft jusqu'au 
INT suivant. 


- LOAD PROG (où PROG est le 
nom d'un programme en BASIC En- 
tier) : le BASIC est chargé automati- 
quement avant le programme. 


- RUN PROG : le BASIC Entier est 
chargé automatiquement. puis le pro- 
gramme est chargé à son tour et exé- 
cuté. 


Ceci suppose bien entendu que le fi- 
chier "BASIC Entier” soit présent sur 
h disquette. Dans le cas contraire, le 
message classique "LANGUAGE 
NOT AVAILABLE ” sera envoyé. 


Îl n'y a donc plus à se préoccuper de 
charger à l'avance le BASIC Entier 
et, du point de vue de l'utilisateur. il 
n'y a plus de différence de manipula- 
tion des différents programmes en 
fonction du langage. On peut notam- 
ment, sans autre précaution. “boo- 


ter” sur un programme d'acceuil 
{HELLO) en BASIC Entier. 


Concrêtement, les opérations à effec- 
tuer sont les suivantes : 


a) Modifier le fichier INTBASIC 
foumi avec la disquette SYSTEM 
MASTER pour qu'il se charge à son 
adresse d'exécution (ce qui, curieuse- 
ment, n'est pas le cas d’origine ! }. 
Pour cela, il suffit de charger norma- 
lement le BASIC Entier (en ‘boo- 
tant” sur la disquette Master par 
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exemple) et de taper. depuis ce lan- 
gage (après INT): 


BSAVE ENTBASIC,A$DO00.L$3000 


(ENTBASIC est le nouveau nom que 
j'ai donné à ce fichier pour le distin- 
guer de l'ancien). 


b) Effectuer les modifications suivan- 
tes en mode moniteur (après avoir 
tapé CALL -151): 


9D4A:99 AS 79 

SF 0: ER EÀ EA FA EA FA FA EA EA ER EA 
A480: DO 

AdOG:EE 

AS06:D 8: CO AD 81 CO 4C 50 A3 OÙ 
AS 78: 20 20 82 AS FO 29 A9 40 

A59C: 0é A5 A9 4€ 20 82 A5 F8 GA 

ABB: CS CÉ D4 C2 C1 D C9 C3 40 

3006 pour revenir au BASIC. 


Les valeurs ci-dessus correspondent 
à un DOS installé dans 48K. Pour 
obtenir une disquette contenant ce 
DOS modifié, il suffit de l'initialiser 
après les avoir introduites. Vous pou- 
vez également utiliser le petit pro- 
gramme d’accès direct à la disquette 
présenté dans ce numéro pour trans- 
former le DOS sur une disquette déjà 
initialisée, en recopiant sur les sec- 
teurs concemés les pages mémoire 
modifiées (cf. ci-dessous). 


Par contre, si l'on veut modifier di- 
rectement une disquette mère (copie 
de la disquette System Master, ou 
disquette initialisée avec le même 
DOS que cette dernière). il faut dimi- 
nuer les valeurs soulignées de 80. Le 
relogeur du DOS les rétablira auto- 
matiquement à leurs valeurs d'utilisa- 
tion. Pour réaliser cette opération 
avec un programme d'accès direct, il 
faut charger les secteurs en mémoire 
à leurs adresses réelles (avant inter- 
vention du relogeur), soit 1DO00, 
2400, 2500, 2A00. puis faire les mo- 
difications et recopier les secteurs à 
partir de ces mêmes adresses. 


Pour mémoire, voici les pistes et sec- 
teurs concernés : 


Page ménoire 


fade Piste Secteur 
90 00 (E 
Ad 01 3 
A5 01 à 
ES gt 9 


Jean-Michel Clin 


Je signale à ceux qui ne le savent 
pas (et la documentation est extré- 
mement discrète sur ce point} que le 
fichier INTBASIC (et donc ENTBA- 
SIC) contient, outre le BASIC En- 
tier : 


e Le mini-assembleur 


e Sweet-16 
e Les routines de calcui en virgule 
flottante utilisables depuis le 


BASIC Entier 


e Tout le Programmers Aid # 1°” 
(utilitaires de complément au 
BASIC Entier) : 


Renumber 
Append 

Tape Verify (BASIC) 
Tape Verify (binaire) 
Relogeur de prog. binaire 
Testeur de RAM 
Routines de musique 
Routines de dessin HGR 


Je serais en revanche curieux de sa- 
voir ce qui se trouve dans la zone 
$D800-$D8FF ! 


Par ailleurs, j'ai beaucoup apprécié le 
“patch” proposé dans le numéro 2 
de Pom's permettant d'afficher à 
chaque CATALOG le nombre de 
secteurs encore libres sur une dis- 
quette. 

J'ai toutefois regretté qu'il supprime 
la fonction INIT du DOS et vous en 
propose ci-dessous une adaptation 
qui évite cet inconvénient : 


ADC3: 24 45 63 


BAG9:A2 0C 20 da F9 A9 OÙ 85 45 85 
4 AO C8 1B B9 F2 E? FO OE OR 
90 FB 49 E6 40 00 D? Ea 41 66 
18 90 FO BR DO E9 a? A8 2ÿ Eb 
FD 4C DF BC 00 

BCDF:A6 40 A5 41 AC 00 E 

TT Dé 26 1B ES 18 90 03 2 
A9 49 20 ER FD 20 2F À 
90 00 90 


Ici encore, le patch” est donné pour 
un DOS installé dans 48K. Il faut di- 
minuer les valeurs soulignées de $80 
pour 16K et de $40 pour 32K. 


Si la modification doit être faite sur 
une disquette mère, il ne suffit plus 
de procéder comme pour un 16K, 
car on a utilisé ici des zones qui ne 
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VENEZ DECOUVRIR 


ROBO 


UNE NOUVELLE 
APPROCHE 


DES PROBLEMES 
GRAPHIQUES 


Enfin. un véritable système conçu pour le Bessin Assisté 
sur @rdinateur personnel APPLE H pour tracer vos plans, 
schémas, diagrammes, figures, avec sortie sur table traçante au 
format A4, A3, A4. 


MINIGRAPHE se tient à votre disposition 
pour une démonstration des multiples possibilités du système 
ROBOGRAPHICS. 


RARE EEE 


Appelez nous au 6688-44-31 pour prendre rendez-vous. 


: Concessionnaire agréé 


MINIGRAPHE 
MICROINFORMATIQUE 


263, Boulevard Jean-Jaurès, 92100 Boulogne 
Tél. 608.44.31 


SERRE 
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sont pas modifiées normalement par 
le relogeur du DOS. Ce dernier doit 
donc être adapté de ja façon sui- 
vante : 


IC68 : A8 3F 
ICE : 69 34 96 SA 


Les pistes/secteurs concernés sont. 


Page mémoire Piste Secteur 


AG pi C 
BA 00 4 
BC 00 4 
ic LU B (relogeur) 


(Mèmes remarques que précédem- 
ment peur le mode opératoire avec 
un programme d'accès direct aux 
disquettes) 





Abonnez-vous à Pom'’s 


La vie de votre revue dépend de 
son nombre d'abonnés. Plus vous 
êtes nombreux, plus nous pou- 
vons vous rendre service, par 
l'augmentation correspondante de 
nos moyens comme par le plus 
grand nombre de contributions 
que nous recevrons forcément de 
vous. Nous avons volontairement 
choisi une politique de disquettes 
à bon marché ; ainsi, lorsque vous 
vous aäbonnez avec disquettes, 
chaque disquette vous revient à 
moins de 50 francs TTC, port 
compris ! Un abonnement à qua- 
tre numéros coûte aujourd'hui 
325 francs. Cela ne sera-t-il pas 
largement amorti si une seule 
des 200 pages de texte que vous 
trouverez en quatre numéros Vous 
résoud ce problème sur lequel 
vous séchez (on a vite fait de per- 
dre deux ou trois jours sur un pro- 
blème) ? 

Dans de nombreux numéros, 
nous vous avons offert des pro- 
grammes comparables à ceux qui 
sont vendus de 250 à 500 francs 
dans les boutiques. Profitez-en ! 
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Décisionnel Graphique à l'essai 


Décisionnel Graphique est un éditeur 
graphique réalisé et vendu par ADDE 
Marketing 2312 FF TIC. Il se pré- 
sente avec une documentation en 
classeur (comme tous les produits ré- 
cents), deux disquettes de travail 
"CREATION-M.AJ"” et VISUAL 
SATION” et une disquette de dé- 
monstration et d'apprentissage bapti- 
sée "VISITE GUIDEE”. 


Il est destiné à visualiser des séries de 
données chronologiques sous forrne 
de courbes, diagrammes et histo- 
grammes. 


ll nécessite un APPLE Il ou APPLE //e 
de 48K minimum, avec deux lecteurs 
de disques souples et une impri- 
mante graphique. Les imprimantes 
prévues d'origine sont l'Epson avec 
carte Epson, la Seïkosha avec carte 
Seiko et différents modèles avec 
carte MID.P2. 


Mode d'analyse 


Nous évaluons les avantages et in- 
convénients de Décisionnel Graphi- 
que — appelons-le DG -— en fonction 
dd ce qu'un utilisateur est en droit 
d'attendre d’un éditeur graphique, 
avec parfois référence implicite ou 
explicite à d'autres logiciels de même 
objectif. Ils sont présentés sous 8 
têtes de chapitres : 


. Approche du logiciel 

. La gestion des données 
Manipulation des données 
Le tracé des graphiques 
Les fonctions auxiliaires 


L'édition sur imprimante 


JD OU PB &w RD m 


Utilitaires : gestion des disques. 
liaisons externes 


8. Documentation 


Un tableau final précise les comparai- 
sons entre les fonctionnalités de DG 
et d’autres éditeurs graphiques. 


1. Approche du logiciel 


L'abord du logiciel est assez aisé. et 
la disquette “VISITE GUIDEE” est 
une très bonne idée. Les comman- 
des sont clairement expliquées, ce 
qui fait qu'on se passe aisément 
d’une fonction AU SECOURS”. 
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On peut toutefois regretter deux op- 
tions prises par les auteurs : 


e le mouvement du curseur par 
CTRL I1,J,K.M 


e la désignation 
séries par 6 lettres 


ésotérique des 


Avantages : Simplicité d'emploi - 
Séparation des fonctions d'entrée de 
données et de tracé - (Choix 
commode dans une ligne de 
commande. 


Inconvénients : Obligation d'utiliser 
2 disques-programme - Temps relati- 
vement long entre 2 options - Quel- 
ques manoeuvres peu ‘’conviviales” - 
Usage fréquent. voire abusif. des 
abréviations. 


Synthèse : DG a ses avantages et 
ses inconvénients, comme chaque lo- 
giciel. Aucun point négatif ne mérite 
d'être mis en exergue. Au crédit de 
DG. l'idée de la “VISITE GUIDEE”. 


2. Gestion des données 


On peut parler de professionnalisme 
à ce niveau: structuration de la 
"Base de Données” avant tout travail 
de création. fonctions de création et 
mise à jour explicites, séries de don- 
nées coordonnées entre elles, mot de 
passe pour protéger une disquette 
(ce qui est trop rare en micro-infor- 
matique). 


De même, la possibilité de réutiliser 
une structure existante. en la modi- 
fiant ou non. est intéressante. 


On regrettera parfois que le logiciel 
soit exclusivement tourné vers la re- 
présentation de séries chronologi- 
ques, ce qui conduira à des ambiguï- 
tés de langage quand on voudra 
représenter d'autres types de séries 
(ce reproche” pourrait d'ailleurs 
s'adresser à bien d'autres éditeurs 
graphiques). 


Avantages : ”Solidité” du système 
de gestion des données - Structura- 
tion de la base - Protection par mot 
de passe - Bon traitement des dates 
(départ. périodicité... }. 


Inconvénients : Système parfois un 
peu lourd à manier - Trop d’accent 
mis sur la chronologie. 


Guy Lapautre 


Synthèse : La gestion des données 
est le point fort de DG, par rapport à 
ses concurrents. On pourra parfois 
regretter une certaine lourdeur. mais 
c'est le prix qu'il faut payer pour as- 
surer un bon niveau de sécurité. 


À ce titre, DG apparaît comme un 
peu plus qu'un simple éditeur graphi- 
que, en remplissant une partie des 
fonctions normalement dévolues à 
un logiciel de gestion de fichiers. 
C'est ce qui le distingue principale- 
ment des autres traceurs de graphes. 


3. Manipulation des 
données 


Nous entendons sous ce titre la pos- 
sibilité d'effectuer des calculs sur les 
valeurs d’une série de données ou 
de combiner plusieurs séries. de 
façon à obtenir de nouvelles séries, 
elles-mêmes susceptibles de repré- 
sentation graphique (voire de servir 
de base pour de nouveaux calculs) 


DG possède quelques fonctions pré- 
programmées intéressantes (cumul, 
taux de croissance, indice base 100, 
movenne mobile) 


1 ne possède en revanche, malgré 
son sous-titre ’geston graphique de 
base de données statistiques”, au- 
cune fonction statistique évoluée. 


Avantages : Manipulation aisée des 
fonctions préprogrammées - Variété 
des possibilités de leur emploi-Pro- 
grammation d'opérations arithméti- 
ques sur une série ou entre plusieurs 
séries. 


Inconvénients : Aucun outil statisti- 
que fin, donc ni lissage ni ajustement 
- Pas d'opérations autres qu'arithmé- 
tiques. 


Synthèse - Sans être d'une faiblesse 
criante, DG souffre, en comparaison 
avec d’autres éditeurs graphiques 
classiques, de l'absence totale d'outil 
statistique approfondi. Il ne permet 
donc pas de faire des études de ten- 
dance ou des projections. 


Cette lacune est d'autant plus gê- 
nante qu'on peut être alléché par 
l'apparence statistique donnée au 
produit, jusque dans son sous-titre 
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4. Tracé des graphiques 


La palette offerte comprend le tracé 
de lignes, de diagrammes à barres et 
d'histogrammes. Il est possible de 
travailler sur plusieurs séries de don- 
nées simultanément. ou sur une par- 
tie seulement des séries. 


Il manque le tracé de diagrammes 
circulaires (communément dénom- 
més ‘’camemberts”). 


L'appel des séries à représenter ne 
se fait pas en clair. mais par code à 6 
lettres. certes rapide à former (d'au- 
tant qu'on peut encore le compri- 
mer), mais beaucoup moins facile à 
interpréter et à mémoriser. 


Avantages : Tracés rapides. super- 
positions aisées - Appel rapide, 
quand on est très familier avec le 
système complexe d'abréviations. 


Inconvénients : Esotérisme des dé- 
signattons - Absence très ennuyeuse 
de diagrammes circulaires. 


Synthèse : Les principaux concur- 
rents de DG compoitent une option 
diagrammes circulaires, que la pré- 
sence d'une fonction histogramme ne 
suffit pas à remplacer (cette option 
existe d’ailleurs dans la version écrite 
pour Sirius/Victor et IBM PC). 


Le système des abréviations codées 
pour désigner les séries plaira à cer- 
tains. d'esprit très “informaticien”. 
mais risque de rebuter le gestionnaire 
habitué à parler son propre langage. 


5. Les fonctions 
auxiliaires 


Ce sont les fonctions dont la pré- 
sence permet de modifier les repré- 
sentations. de les agrémenter. de les 
commenter. etc. 


On trouve dans DG des fonctions de 
changement d'échelle sur les deux 
axes, permettant la réalisation d’une 
astucieuse fonction ‘zoom, peu 
courante sur les logiciels de ce type 
{qui ont plutôt tendance à refuser un 
changement d'échelle ne permettant 
pas une représentation complète des 
séries étudiées). 


En revanche. une lacune très grave 
est l'absence de fonction titrage. sur- 
tout combinée à l'ésotérisme signalé 
précédemment pour la désignaton 
des séries. 


Avantages : Changements d'échelle 
commodes - Fonction zoom”. 


Inconvénients : Pas de tite - Pas 
d'option couleurs - Une seule fenêtre 
sur l'écran. 


Synthèse : DG se révèle particuliè- 
rement pauvre dans ce domaine, 
même en comparaison avec des logi- 
ciels apparemment moins ambitieux. 


L'absence de possibilité de titrage est 
même très génante, et suffira sans 
doute à éloigner de nombreux utilisa- 
teurs (cette possibilité existe dans la 
version Sirius/Victor et IBM PC). 


6. Edition sur 
imprimante 


Il est possible d'imprimer, d'une part 
des tableaux de chiffres, d'autre part 
des graphiques, et ce en simple ou 
double dimension. 


Un choix d'imprimantes est proposé 
en standard, avec une large place ac- 
cordée aux imprimantes graphiques 
fonctionnant avec la carte MID.P2. 
Tout permet de penser que les au- 
teurs mettront un point d'honneur à 
ajouter à cette liste l'imprimante ma- 
tricielle Apple avec sa caite graphi- 
que. 


L'utilisation d'autres imprimantes 
pose un problème complexe de pa- 
ramétrage. Empressons-nous de dire 
que cette complexité n'est nullement 
spéciale à DG. 


Avantages : Deux possibilités de di- 
mensions d'impression (ce qui est ex- 
ceptionnel) - Un honnête choix d'im- 
primantes préparamétrées. 


Inconvénients : Absence de titres - 
Paramétrage peu simple d'impriman- 
tes non prévues (mais pas plus 
qu'avec d'autres logiciels). 


Synthèse :  L'impossibilité, dans 
l'utilisation en base de données (et 
non pour les séries manuelles). de ti- 
trer les graphiques est particulière- 
ment ennuveuse dès qu'on imprime 
ces graphiques. Si, en effet, au mo- 
ment où l'on travaille sur écran, il est 
relativement facile de savoir que 
PAFRRN représente les ventes hors 
taxes du Produit À, en FRance, Ré- 
gion Nord, et PAEXAN les ventes du 
méme produit, à l'exportation en 
Afrique du Nord, selon les données 
connues au jour de l'établissement 
du graphique, trois mois après. au 
milieu d’une collection de graphes... 


7. Utilitaires 


Nous avons déjà signalé des temps 
de transit relativement importants 


entre les options des programmes. 
Nous avons aussi souligné la sécurité 
dans la gestion des données. Ajou- 
tons la possibilité de mêler des infor- 
mations en provenance de plusieurs 
disquettes. 


Par ailleurs, DG permet, très commo- 
dément, l'accueil de données en pro- 
venance de Visicalc ou de Muitiplan 
(sous réserve bien entendu d'avoir 
pris quelques précautions élémentai- 
res au moment de la confection des 
tableaux). 


Avantages : Système ouvert à deux 
"tableurs” très connus - Sécurité 
poussée dans la gestion des données 
sur disque. 


Inconvénients : Quelques temps 
d'attente, utilisation de deux disques 
pour les programmes - Absence 
d'une option permettant de sauve- 
garder des graphiques sur disque. 


Synthèse : Les avantages l'empor- 
tent ici très nettement sur des incon- 
vénients somme toute mineurs. Il ne 
devrait pas étre trop difficile pour les 
concepteurs d'ajouter une option de 
sauvegarde de graphiques. Ceci au- 
rait l'avantage de permettre une im- 
pression différée (et à cette occasion 
de TITRER le travail exécuté !). 


8. Documentation 


La documentation, en français. 
comporte deux parties distinctes. 


La première, Visite Guidée, permet 
de suivre la démonstration proposée 
par la disquette correspondante, et 
de se familiariser avec la majeure 
partie des commandes courantes. 
Nous avons eu l'occasion de lire 
dans la presse que cela prenait envi- 
ron trois quarts d'heure. Oui, pour ce 
qui est de survoler. Non, pour ce qui 
est d'apprendre. Heureusement! ll 
n'existe pas de logiciel sérieux qu'on 
puisse apprendre en trois quarts 
d'heure. 


La seconde est classiquement pré- 
sentée par fonctions. 


Avantages : Français de bonne qua- 
lité - Visite quidée bien pratique pour 
une première familiarisation - Ni er- 
reur. ni lacunes graves (en tous cas, 
nous n’en avons pas trouvé). 


Inconvénients : Présentation un 
peu austère (par rapport à des 
concurrent U.S.) - Absence d'un ta- 
bleau synoptique. 
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Gestion des données 


Clef de protection 
Structuration préalable 


Accueil de données exogènes 
Visicalc 
PES. 
Multiplan 
Appleplot 
Fichiers DOS 
Fichiers PASCAL 


Désignation des abscisses : 
Nombres 
Dates 
Libellés 


Echange abscisses/ordonnéee 
Plusieurs fichiers coordonnés 


Désignation des séries : 
Noms en clair 
Noms codés 


Manipulation des séries 
de données 


Interpolation : 
Arithmétique 
Géométrique 
Ajustements divers 


Cumul 

Taux de croissance 
Indice Base 100 
Moyenne mobile 


Ajustements : 
Droite de régression 
Lissage exponentiel 
Logarithmique, parabolique 
sinusoï dal 


Opérations sur une série : 
Arithmétiques 
Mathématiques diverses 
Déplacement à gauche ou 
à droite 


Opérations entre séries : 
Ârithmét'ques 
Mathématiques diverses 


Graphiques 


Types de graphiques : 
Lignes 
Barres verticales 
Barres horizontales 
Histogrammes 
Circulaires (« camemberts ») 
f(x,y) 
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Synthèse - Pas de critique fonda- 
mentale - Pas de louanges excessives 
non plus. 


Conclusion 


Premier outil d'aide à la décision gra- 
phique français. DG est séduisant par 
bien des côtés, mais certaines fonc- 
tionnalités lui manquent cruellement. 


Parmi ses faiblesses : L'absence 
d'une fonch'on de tracé de diagram- 
mes circulaires - L'absence de toute 
possibilité de titrage des graphiques - 
Le manque de fonctions statistiques. 


et, à un moindre titre : L’ésoté- 
risme de la désignation des séries - 
@uelques temps d'attente entre op- 
tions - L'impossibilité de sauvegarder 
des graphiques sur disque. 


Parmi ses forces : Un système 
“professionnel” de gestion des don- 
nées - Un apprentissage rapide des 
principales options avec la ‘visite qui- 
dée” - Des fonctons intéressantes de 
manipulation de séries {hors statisti- 
ques) - L'accueil aisé de séries exo- 
gènes (Visicalc, Muitiplan). 


et, à un moindre titre : D’habiles 
options de changement d'échelles-Un 
jeu convenable d'imprimantes prépa- 
ramétrées (auquel les lauréats de la 
‘Pomme d'Or” auront à coeur 
d'ajouter l'imprimante matricielle 
Aprplel. 


DG est un logiciel agréable à utiliser 
dans l'ensemble, même si l'on est 
parfois énervé par le mode de dési- 
gnation des séries ou certains mou- 
vements du curseur par touches de 
contrôle. 


On sera séduit par la qualité de son 
système de gestion de données, mais 
déçu par l'absence de certaines fonc- 
tionnalités qu’on est maintenant ha- 
bitué à rencontrer dans les éditeurs 
graphiques. 


Îl est possible à notre avis de se fami- 
liariser avec les principales comman- 
des du logiciel en moins d'une demi- 
journée, quelques heures de pratique 
étant ensuite nécessaires pour maftri- 
ser les différentes options. 


Pour les utilisateurs d'Apple //e : 
ATTENTION à la touche *“CAPS 
LOCK”, qui doit toujours être enfon- 
cée : dans le cas contraire. le logiciel 
ne comprend rien”, refuse toute en- 
trée sur la ligne réservée, ne prévient 
pas et se bloque totalement. 
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Titrage : 
Haut 
Bas 
Vertical 
Mobile horizontal 
Mobile vertical 


Options principales : 
Modification des échelles 
Effet de « zoom » 
Couleurs 
Fenêtres 


Impression des graphes : 
Dimension normale 
Grande dimension 


{1) Dans la version 7.0 
Remarques de synthèse 


Visiplot est en général bien placé, 
sans grandes lacunes. Îl permet en 
particulier des calculs trés variés sur 
les séries (à condition d’être accom- 
pagné de VISITREND). 

Ses options graphiques et de titrage 
sont très satisfaisantes. 


Business 
complet. 


Graphics est le plus 





On pourra parfois regretter qu'il ne 
« connaisse » que les quatre opéra- 
tions au niveau de la manipulation 
des séries. 


PFS Graph est un outil beaucoup 
plus modeste, créé surtout pour re- 


présenter les séries issues de PFS 
FILE. 


1] possède néanmoins d'utiles possibi- 
liés de tracés autres. 
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Commentaires de ADDE 
Marketing 


La version 7 est disponible sur Apple 
depuis la mi-novembre. Le pro- 
gramme se présente maintenant sous 
la forme d’une disquette unique réu- 
nissant ’CREATION-M-AJ” et 
"VISUALISATION”. La version 7 
comprend la fonction Ecriture qui 
permet d'écrire. en normal ou in- 
verse, des commentaires sur toutes 
les formes de représentation graphi- 
ques. Ces commentaires sont dépla- 
çables en tout point de l'écran. 


Les possesseurs d'anciennes versions 
peuvent bénéficier. contre un règle- 
ment de 350 F HT accompagné de 
la preuve d'achat du logiciel, de la 
version 7: ils recevront alors en 
échange la nouvelle disquette pro- 
gramme et le supplément de docu- 
mentation. 





On regrettera qu'il n’y ait guère de 
possibilités de manipulation des 
séries. 

Décisionnel Graphique trouve son 
principal point fort dans une gestion 
« professionnelle » des données. On 
regrettera principalement l'absence 
d'une option de graphique circulaire, 
et peut-être plus encore l'absence de 
titres (dans les versions antérieures à 
la récente version 7.0) 


Une informatique de gestion adaptée aux besoins des gestionnaires et réalisée par des gestionnaires, 


SEMINAIRES 
INTERNES SUR 
APPLE ET IBM PC : 


SEMINAIRES 


PAR 
HERVE THIRIEZ : 


e formation et conseil sur l’utilisation de tableurs : utili- 
sation de base et utilisation avancée 


® analyse des tableaux conçus dans 


l’entreprise et 


conseils pour l’amélioration de ces tableaux 
® transfert de fichiers et communication entre Apple et 


IBM PC 


e lien entre Applewriter et des équipements de photo- 


composition 


® formation à la micro-informatique de gestion 


INTERNES ANIMES * utilisation de Multiplan Apple et IBM PC 


® expertise sur l’utilisation de tableurs 


logma sa. - 12, rue d'Anjou - 78000 Versailles - Tél. : (3) 951.24.43 
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INPUT généralisé de tableaux 


Dans le numéro 6 de Pom's, nous 
vous avions proposé une petite rou- 
tine-assembleur d'INPUT généralisé 
assurant le contrôle des saisies-clavier 
caractère par caractère, en fonction 
du type de donnée attendu (alpha- 
numérique, numérique ou date). 


Dans cette version initiale, le passage 
des paramètres (tabulation, longueur 
de la donnée...) et l'affectation des 
valeurs entrées aux variables étaient 
réalisés au niveau du BASIC par des 
instructions PEEK et POKE. De 
même, la gestion de l'écran dans son 
ensemble (saisie d’un tableau de va- 
riables alphanumériques, passage à 
l'indice suivant ou à l'indice précé- 
dent.) relevait d'une boucle d'ins- 
tuctions BASIC. 


La routine présentée ci-après s'arti- 
cule autour du même sous-pro- 
gamme d'analyse de caractères, 
mais elle s'appelle directement au 
moyen de ’&” et permet la saisie 
complète de tableaux de variables, 
avec manipulation des indices, ainsi 
que l'affectation immédiate des va- 
leurs à ces variables. 


Principes d'utilisation 


Lorsque vous concevez votre pro- 
gramme, vous êtes amené à définir 
les différentes données qui seront en- 
trées au clavier, les variables corres- 
pondantes, et la façon dont se pré- 
sentera l'écran au moment de la 
saïsie Par exemple, vous prévoyez 
un nom de 30 caractères à la co- 
lonne 5 de la ligne 4, un prénom de 
20 caractères à la colonne 10 de la 
ligne 6, l’âge sur 2 chiffres à la co- 
lonne 5 de la ligne 8 … Vous pouvez 
ainsi définir, pour chacun de vos 
écrans de saisie, un tableau de para- 
mètres et une variable dimensionnée 
(1 seule dimension autorisée ici) ”’ré- 
ceptrice” des entrées. 


Le programme Applesoft CRETAB a 
pour but de préparer et de mémori- 
ser l'ensemble de ces tableaux pour 
une application donnée. il vous de- 
mandera pour chacun : 


e je nom de la ‘variable-tableau” 
(une seule lettre) 


e le nombre de variables (ou d'indi- 
ces) dans ce tableau 


e pour chacune de ces variables : le 
type (1 pour alphanumérique, 2 
pour numérique et 3 pour une 
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date), la longueur maximale auto- 
risée, le VTAB (compté à partir de 
0) et le HTAB (compté à partir de 
0). 


Ce descriptif de l’ensemble des 
écrans de votre application sera en- 
suite sauvé sous un nom qu'il vous 
appartient de choisir et vous pourrez 
le charger ultérieurement par un 
BLOAD pour l'utiliser dans votre 
programme. 


Supposons ainsi que l’un de vos ta- 
bleaux soit baptisé Z et qu'il 
comporte 6 variables (ou i,dices). 
Dans je programme, l'instruction &1Z 
aura pour conséquence la saisie 
(avec tabulation, contrôle de type et 
de longueur) de 6 données que vous 
retrouverez ensuite en Z$(0), Z$(1) 
… Z$(5). Les autres instuctions pos- 
sibles sont : 


&PZ : affiche le contenu des varia- 
bles (toujours avec la même tabula- 
tion) 


&MZ : modification des variables 


&EZ: efface les valeurs affichées, 
sans affecter le reste de l'écran. 


Le RETURN permet de passer à la 
variable suivante, et ce jusqu’à la fin 
du tableau en cours (en modification, 
un RETURN en première position re- 
vient à reprendre la valeur affichée). 
La touche ESC, tapée en première 
position sur une zone de saisie, per- 
met de remonter à la variable précé- 
dente; s’il s’agit de la toute première 
variable, ESC provoque une sortie 
de la procédure ”’&”. 


Quelques détails. 


Le descriptif des tableaux est 
"POKé” en mémoire par CRETAB à 
partir d’une adresse qu'il vous pré- 
cise en fin de traitement pour que 
vous puissiez l'utiliser dans votre pro- 
gramme et notamment fixer votre 
HIMEM. Il se présente sous la forme 
suivante (avec AO = adresse de 
début) : 


e AO: code ASCII de la lettre défi- 
nissant le premier tableau 


© A0+:: nombre d'éléments dans 
ce tableau 


e A0+2 et AO+3 : nombre d’octets 
occupés par ce tableau à partir de 
A0, sous forme octet bas-octet 
haut (soit N ce nombre) 


Gérard Michel 


e pour chaque élément du tableau, 
4 octets pour définir type, lon- 
gueur, VTAB et HTAB 


© AO+N: lettre définissant le ta- 
bleau suivant s'il existe, et ainsi de 
suite. 


Par ailleurs, nous n'avons pas utilisé 
la procédure de Applesoft pour la 
recherche d’une variable dimension- 
née dont on connaît le nom, mais 
une petite sous-routine qui 
commence en S2 dans la liste du 
programme-source IG. Il peut donc 
être utile de donner ici quelques pré- 
cisions sur la façon dont l’Applesoft 
stocke les tableaux de variables. 


L'instruction DIM 2Z$(x} sera mémo- 
risée de la façon suivante dans la 
zone des tableaux de l'Applesoft : 


- code ASCII de Z 


— code ASCII de Z augmenté de $80 
(pour les variables alphanumériques, 
le code ASCII de la deuxième lettre 
du nom est toujours augmenté de 


$80) 


— nombre d'octei occupés par le ta- 
bleau (ce nombre est sous la forme 
octet bas-octet haut) 


— nombre de dimensions, soit 1 dans 
notre exemple 


— nombre d'éléments dans cette di- 
mension, soit x+ 1 


— ensuite, 3 octets pour chaque élé- 
ment, où seront stockées : 


. la longueur de la chaîne de caractè- 
res associée à la variable 


l'adresse de cette chaîne 
forme octet bas-octet haut) 


(sous 


Pour retrouver une variable d'après 
son nom, on se place donc au début 
de la zone des tableaux dont 
l'adresse AO est donnée en $6B-$6C 
et on regarde si les valeurs contenues 
en A0 et AO+1 correspondent au 
nom de la variable. Si ce n’est pas le 
cas, on ajoute à AO le nombre qui se 
trouve en AO+ 2/ AO+ 3 et on re- 
commence... 


Remarques pratiques 


1) Par souci de simplification, le pro- 
gramme CRETAB présenté ici est ré- 
duit à sa plus simple expression. En 
particulier, il ne contrôle pas si la let- 
tre (nom de variable) affectée à un 


tableau n'a pas déjà été utilisée. Il 
vous appartient donc de rajouter ce 
contrôle, ou de prendre un minimum 
de précautions lorsque vous affectez 
les noms de variables. 


Par ailleurs, en modification des pa- 
ramêtres entrés initialement pour un 
descriptif de tableaux, la fin du des- 
criptif ne sera pas testée. Si vous 
allez au-delà du dernier tableau, le 
programme affichera un tableau sans 
lettre; repondez alors O aux deux 
questions (OK? et FINI?) pour ache- 
ver la procédure. 


2) En plaçant directement les chaînes 
de caractères sous HIMEM dans la 
routine (sans utiliser la procédure 
correspondante de l'Applesoft}, on 
court-circuite le contrôle opéré sur la 
place disponible par FRE(O). En re- 
vanche, nous employons la routine 
de “Garbage” présentée dans le nu- 
méro 2 de Pom's (Version avec test 
sur la place disponible, baptisée 
FRE(2) dans le programme de dé- 
monstration ci-après}, appelée par 
JSR FRE à la fin de la saisie d'un 
tableau. 


Si vous avez égaré votre Pom's No 
2, ou si vous n'avez pas la disquette 


du présent numéro, vous devez sup- 
primer tous les JSR FRE dans la rou- 
tine de saisie et ne pas omettre dans 
vos programmes d'application des 
FRE(O) périodiques (vous pouvez 
aussi remplacer l'adresse de notre 
FRE ($927C) par celle du FRE de 
l'Applesoft ($E484) au sein de la 
routine elle-même). 


3) L'adresse de début du descriptif 
des tableaux doit toujours être sto- 
ckée en 37191 et 37192 avant tout 
appel à ia routine pour les tableaux 
correspondants (cf. ligne 30 du pro- 
gramme de démonstration). Si un 
même programme utilise plusieurs 
descriptifs, leurs adresses respectives 
devront être stockées alternativement 
en 37191 et 37192 à chaque chan- 
gement du descriptif en cours de trai- 
tement. 


Far ailleurs, n'oubliez pas de définir 
la DIM de vos tableaux avant leur 
traitement (même si elle est inférieure 
à 10), pour que la routine puisse les 
trouver dans la zone des tableaux de 
l'Applesoft. 


4) Les différentes adresses base” 
définies (36000 pour la fin des des- 


criptifs, 37191-37192 pour l'adresse 
de leur début...) tiennent compte de 
l'implantation d’autres routines que 
Pom's vous présentera peut-être pro- 
chainement. Vous pouvez bien sûr 
les modifier (n'oubliez pas la mise à 
jour des programmes) pour une meil- 
leure utilisation de la mémoire. 


5) Dans le programme DEMOIG, 
IGI et IG2 sont deux masques de 
saisie (cf. Pom's No 7) utilisés pour 
des raisons de présentation. Si vous 
ne possédez pas la disquette du pré- 
sent numéro, supprimez toutes les 
instructions BLOAD 1G1 et BLOAD 
IG2 avant d'utiliser le programme 
(vous pouvez aussi vous créer deux 
masques [G1 et IG2 de votre choix 
avec le programme GESMASK de 
Pom's 7). 


De même, si vous ne possédez pas 
cette disquette, il vous faudra égale- 
ment créer votre propre descriptif de 
tableaux DEMO au moyen du pro- 
gramme CRETAR, avant de lancer 
DEMOIG. 


Enfin, précisons que les fichiers F1 et 
F2 ne sont utilisés ici que pour illus- 
trer le transfert correct des valeurs 
des variables entre la routine d’IN- 
PÜT, le BASIC et le DOS. 





Programme CRETAB AB : “3;VXCTT,X + 3): NEXT 
80 TT = TT + 1: IF TT < = NV THEN SO 
90 AD = DD - NT: HOME : INPUT ‘NOM DU FI 
S REM CREATION DE TABLEAUX DE CHIER : ‘”;NS:AO = AD 
6 REM VARIABLES (APPLESOFT) 100 FOR I = 1 TO NV: POKE AD,V%x(I,0):AD 
7 REM £2SS2SSsSS=S=S222====z=S= = AD + 1: POKE AD,V%(I,1):NI = V 
%CI,1):AD = AD + 1:NO = VXx(I,2):H 
10 HIMEM: 25000 B = INT CNO / 256):LB = NO - 256 
15 TEXT : HOME # HB: POKE AD,LB: POKE AD + 1,HB 
17 INPUT ‘1-CREATION 2-MODIFICATION ‘AD = AD + 2 
“:C: PRINT : PRINT IF C< 1 OR 110 FOR J = 3 TO ((4 « NI) + 2): POKE A 
C > 2 THEN 17 D,V%(I,J):AD = AD + 1: NEXT J: NE 
18 DD = 36000:LO = O: IF C 2 THEN 200: XT I 
REM LE DESCRIPTIF DESCEND A PAR 120 DS = CHRS (4):LO = LO + NT 
TIR DE L’ADRESSE 36000 130 PRINT DS"BSAVE"NS®*,A'"AO",L'"LO: PRIN 
20 INPUT “NOMBRE DE TABLEAUX : ‘";NV: IN T : PRINT “ADRESSE DU DEBUT TABLE 
PUT "DIMENSION MAXIMALE : ‘";DM: P AUX : "AO: END 
RINT : IF NV > 10 THEN 20 200 DS = CHRS (4): INPUT "NOM DU FICHIE 
30 DM = 4 # (DM + 1): DIM V%x(10,DM): REM R : “;NS: PRINT DS"BLOAD'"NS:AO = 
LE TABLEAU V% RECOIT LES INFORM PEEK (43634) + 256 »“ PEEK (4363 
ATIONS QUI SERONT POKEES EN FIN D S):LO = PEEK (43616) + 256 * PE 
E TRAITEMENT EK (43617) :AD = AO:DD = AO 
40 NT = O!TT = 1 205 INPUT ‘AJOUTS DE TABLEAUX (O/N) ?'': 
50 TEXT : HOME : PRINT "“TABLEAU “TT: PR 28: 1F 28 = "“O" THEN 20 
INT : POKE 34,2: INPUT "LETTRE : 210 Z$S = CHRS ( PEEK (AD)):NI = PEEK ( 
“:LS: INPUT “NOMBRE DE VARIABLES AD + 1):NO = PEEK (AD + 2) + 256 
: “>NI:NO = 4 # (NI + 1):NT = NT #  PEEK CAD + 3): PRINT : PRINT 
+ NO: PRINT "TABLEAU “2S" “+ INPUT "OK ? 
60 VX(TT,O) = ASC (LS):VXCTT,1) = NI:Vx% :2$: IF 2$S = "N”" THEN 300 
(TT,2) = NO: POKE 34,5: FOR I = 1 220 INPUT “FINI ? ";:28: IF 2$S = “O'" THE 
TO NI:X = (4 « I) 1: HOME N PRINT DS**BSAVE'NS*,A°°A0',L"LO: 
70 PRINT : PRINT “VARIABLE “I: PRINT : END 
INPUT "TYPE : "“:VXCTT,X): INPUT 230 AD = AD + NO: GOTO 210 
LONGUEUR : “";V%CTT,X + 13: INPUT 300 I = 1:AD = AD + 4 
"VTAB : “;VXCTT,X + 2): INPUT “HT 310 PRINT : PRINT “VARIABLE “I: PRINT : 
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PRINT “TYPE : ‘ PEEK {AD): PRINT 
"LONGUEUR : ‘ PEEK CAD + 1): PRI 
NT “VTAB : ‘* PEEK (AD + 2): PRINT 


*“HTAB : ‘ PEEK (AD + 3): PRINT : 
INPUT “OK ? “;2S: IF 2S = “O" TH 
EN 350 


320 INPUT ‘NOUVEAU TYPE: “;TY: INPUT "N 
OUVELLE LONGUEUR: ‘“;:LO: INPUT ‘NO 
UVEAU VTAB: *“;V: INPUT ‘NOUVEAU H 
TAB: ‘;:H: POKE AD,TY: POKE AD + 1 
LO: POKE AD + 2,V: POKE AD + 3,H 

350 AD = AD + 4:I = I + à: IF LI < = NI 
THEN 310 

360 GOTO 210 





Programme DEMO.IG 


S REM DEMONSTRATION DE L’INPUT 
6 REM GENERALISE DE TABLEAUX 

7 REM  (APPLESOFT) 

8 REM 2z2z22zsz2z=s<s=z====sss==-.: 


10 HIMEM: 35899 

15 POKE 1013,76: POKE 1014,112: POKE 10 
15,142: REM ADRESSE POUR & 

17 DIM Z$(6),XS8(15) 

20 DS = CHRS (4): PRINT DS"BLOAD IG.OBJ 
*: PRINT DS‘"BLOAD FRE(2)": PRINT 
DS'"BLOAD DEMO": REM DEMO=DESCRIP 
TIF DES TABLEAUX 

30 POKE 37191, PEEK (43634): POKE 37192 
» PEEK (43635): GOTO 100: REM ST 
OCKE L’ADRESSE DE DEPART DU DESCR 
IPTIF 

40 VTAB 23: HTAB 1: INVERSE : PRINT "EN 
REGISTREMENT CONFIRME ? ‘’;: NORMA 
L ; GET 2S: IF 28 < > ‘“C“" AND 2sS 

< > ‘N‘® THEN 40 


4i VTAB 23: HTAB 1: CALL - 868: RETURN 
SO VTAB 23: HTAB 1: INVERSE : PRINT ‘AP 
PUYEZ SUR UNE TOUCHE ‘“;: NORMAL : 


GET ZS: RETURN 
100 TEXT : HOME : PRINT ‘“1-CREATION MAS 
QUE 1‘: PRINT ‘’2-CONSULTATION MAS 
QUE 1‘: PRINT “3-MODIFICATION MAS 
QUE 1°: PRINT ‘’4-CREATION MASQUE 
2°: PRINT ‘“S-CONSULTATION MASQUE 
2°: PRINT ‘6-MODIFICATION MASQUE 
2°: PRINT ‘“7-FIN‘“: PRINT 
110 INPUT “VOTRE CHOIX : “;C: IF C < 1 
OR C > 7 THEN 100 
120 IF C = 7 THEN TEXT : HOME : END 
130 ON C GOTO 200,250,250,350,400,400 
200 PRINT DS‘"BLOAD IG1*: & IZ: IF PEEK 
(6) THEN 100: REM PEEK(6)=1 => 
ABANDON 
210 GOSUB 40: IF Z$ = ‘"O‘* THEN 230 
220 6& MZ: IF PEEK (6) THEN 100 
223 GOTO 210 
230 PRINT : PRINT DS"OPEN F1": PRINT DS 
“WRITE F1“: FOR I = O TO 6: PRINT 
Z$(I): NEXT : PRINT DS"CLOSE*‘: P 
RINT DS‘*"PR#O“: GOTO 100 
250 PRINT DS"OPEN F1‘: PRINT DS"READ Fi 
“: FOR I = O TO 6: INPUT ZS{I): N 
EXT : PRINT DS"CLOSE‘*: PRINT DS"P 
R#O°*: PRINT DS‘"BLOAD IG1‘ 
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260 & P2: IF C = 2 THEN GOSUB SO: & EZ T XS(I1): NEXT : PRINT D&#"CLOSE"‘: 


: GOSUB SO: PRINT : GOTO 100 PRINT DS"PR#O'": GOTO 100 
270 GOTO 210 400 PRINT DS"OPEN F2“: PRINT D#"READ F2 
350 PRINT DS"BLOAD IG2*“: & IX: IF PEEK “: FOR I = O TO 15: INPUT XS(I): 
(6) THEN 100 NEXT : PRINT DS"CLOSE‘": PRINT DS" 
360 GOSUB 40: IF 2$ = “O* THEN 380 PR#O‘": PRINT DS"BLOAD IG2* 
370 & MX: IF PEEK (6) THEN 100 410 & PX: IF C = S THEN GOSUB SO: & EX 
375 GOTO 360 : GOSUB S0: PRINT : GOTO 100 


380 PRINT : PRINT DS"“OPEN F2‘*: PRINT DS | 420 GOTO 360 
“WRITE F2“: FOR I = O TO 15: PRIN 





Programme IG.SCE 47 BNE EXAI 
: ia JMp 10 
isa les 49 EXAL CMP #'P' * INSTRUCTION "PRINT" 
1 SAHARA 5 BNE EXA2 
2 :4 * St JMP PO 
3 :# ROUTINE D' INPUT GENERALISE DE # 52 EXA2 CM #W’ * INSTRUCTION "MODIFICATION" 
hu :# TABLEAUX - CODE = !6.0BJ + 53 BEG MO 
5 + * Sä CHP #'E’ : INSTRUCTION "EFCACE* 
& MARÉES SES LES SES SSL SSL; SE s5 BNE EXA 
F4 6 JM E0 
8 ORS $8E70 57 10  JSR $B1 LIT NOM DE LA VAR.-TAB. DANS PG 
9 OBJ $860 58 STA VAR 
10 ADR EPZ $28 ‘ADRESSE BASE COLONNE COURANTE 5 LDA #0 
11H EP1 $24 FOSITION HORIZONTOLE DU CURSEUR 60 STA Æ :SIGNALE "INPUT" 
I21C  EPZS$9 «NOMBRE DE CARACTERES ENTRES 6i STA KW 
13€ EP1 $6 «DRAPERL POUR "ESC" 62 JW 11 
14LD EP $7 LONGUEUR VARIABLE À SNT2ER 63 PQ JSR #81 
15 TY  EPZ $8 *TVFE DE LA DONKET Gé STA VAR 
16 ZY  EQU $311 :IDNE DE STOCKAGE DES CARAC,. EXTRES | 65 JW 550 
{7 GET  EQU $FDOC “ROUTINE SAISIE D'UN CARACTERE 66 MO  JSR $Bi 
18 OUT EU $FDED  :ROUTINE SORTIE D'EN CARACTERE 67 STA VAR 
13 ADT  EP2 #18 “ADR. DESCRIPYIF TABLEAUX DE V3. 68 LDA #i 
20 VAR  EPZ $1A *£ERE LETTRE NOM VAR.-TABLEAU 69 STA XÆ :SIGNALE *MGDIFICATION" 
21 VW EPI $6 VARIABLE DE TRAVAIL 70 JW 5550 
22 ADT2  EPZ $1B “VARIABLE DE TRAVAIL 71E0  JSR sBl 
23 NVOR  EPZ $iD °NBRE VAR. (INDICES) DANS TABLEAL 72 STA VAR 
24 V EPZ $25 «POSITION VERTICALE Di EURSELR T3 JW Et 
25 ME  EPZ $07 “DRAPEAU "INPUT/MGODIFICATION* 7 Ii JSR 50 
26 TAB  EPZ 46B “ADR. DEBUT ZONE TABLEAUX ADOLEGOFT | 75 JP 560 
27 TAB2  EPI $iE "VARIABLE DE TRAVAIL 7690  LDY # .CHERCHE VAR. DANS DESCR. TABLEAUX 
28 VTAB EQU $FC22  :ROUTINE MONITEUR "VTAB* T1 LDA (ADT),Y 
23 ADV  EPZ $CE «ADR. VALEUR VAR. {VAL 15(0) ...) | 78 CMP VAR 
36 FRETOP EPZ $6F :FIN DE ZONE LIBRE 79 BEQ Si : VARIABLE TROUVEZ 
31 NVT  EPZ $D6 °NBRE VAR. TRAITEES S/TRE EN COURS | 80 INY 
32ERE  EQU $927C  :ROUT. "BARBAGE" (CF POS NO 2) gi INY 
33 NVP  EPZ $EB :DRPEAU POUR "REMONTEE" PAR *ESC” 82 LDA (ADTI,Y  3PASSE A VAR. -TABLERU SUIVANTE 
34 VAR2  EPZ $EC *2EME LETTRE NOM VAR. -TABLEM) 83 CL + (ADT), Ÿ OCTETS #LUS LOIN 
35 ADTPRO EQU $9447  :STOCKAGE ADRESSE DESCRIPTIF & ADC ADT 
3% LDY ADTPRO 85 STA 
37 STY ADT 86 INY 
38 LDY ADTERO+ 87 LDA (ADT),Y 
39 STY ADT+: 8e ADC ADT4! 
40 LDY #$aC 89 STA ADT+] 
al STY VAR2 :1 LETTRE POUR VAR. -) 2EME-#586 g0 LDA vP 
&2 60  BNE EXAO gi STA ADT 
43 RTS g JM 50 
44 EXA  JSR $Bl 93 si LDA AOT :STOCKE ADRESSE-BASE DU TABLEAU 
45 JP 60 6 STA ADTZ 
&B EXAO CMP #l’ * INSTRUCTION “INPUT” g% LDA ADT+! 
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% STA ADF2+1 

97 INY 

9% £DA (ADT),Y 

3 STA NVAR 

100 LDA #0 

101 STA NVT 

102 LDA TAB 

103 STA TAB2 

104 LDA TABH 

105 STA TAB2+1 

196 52 LDY # :CHERCHE VAR. DANS ZOME-TABLEAUX 
107 LDA (TAB2),Y . 

108 CP VAR 

109 BNE S3 

110 INY "1ERE LITTRE TROUVEE 

iii LOA (TAB2),Y 

112 CMP 6580 

113 BEG 54 ‘2EME LETTRE TROLVEE 

il BEY 

115 53 INY PASSE À VAR.-TAB. SUIVANTE QUI S€ 
116 INY °TROUVE (TAB2},Y OCTETS PLLS LOIN 
117 UMR (TAB2),Y 

118 CLC 

119 ADC TAB2 

120 STA W 

121 INY 

12 LDA (TAB2),Y 

123 ADC TAB2+] 

124 STA TAB2+1 

125 LDA WP 

1% STA TAB2 

127 JP 52 

128 Sa LDA TAB2 *SE PLACE À IND. O TAB. RFPLESOFT 
129 CLC 

130 ROC #7 

131 STA FAB2 

132 BC 55 

133 INC TAB2+1 

134 S5 RTS 

135 S60  JSR 

136 J@ 570 

137 S6 LDA ADT2 :PASSAGE AUX INDICES SUCCESSIFS 
138 CLC DANS LE DESCRIATIF DES TABLEAUX 
139 ADC #4 

140 STA ADT2 

141 BCC S61 

142 INC ADT2+#t 

143 S6i RTS 

144 570  JSR S7 

145 JP 571 

146 57 LDY #0 TRANSFERT DARAMETRES INDICE 
147 LDA (ADT2),Y :CONCERNE DANS VAR. DE TRAVAIL 
148 STA TY 

149 INY 

150 LDA {ADT2),Y 

151 STA i0 

152 INY 

153 LDA (ADT2), Y 

154 STA V 
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192 511 
193 
194 SL1A 





INY 
LDA (ADT2},Y 
STA H 


AFFICHE DES POINTS SUR LA 
“LONGUEUR MAXIHALE DE LA DONNE 


:TRAITE WODIFS DPR ‘ESC’ DANS INPUT 


JSR 5510 
LDA 
STA H 
JSR INPUT 
LDA E 
BEQ 59 
JP 516 
LDX LE 
BNE Si 


3PRE-AFFICHAGE DONNEE FOUR #ODIF. 


“RAS DE ? ESC’ 


:PAS DE CARAC. ENTRES - VERIFIE SI 
0ONNEE EST VIDE OÙ SI 
*"RETURN® DE MODIFICATION 


JP 510 
JSR S11A 
JP 5110 
AFFICHE BLANCS -} LONGUEUR 


LDA LC 

STA (TAB2),Y 
BEQ 512 

LDA FRETOP  :CALCU. ADRESSE DE LA VALEUR DE LA 
SEC VARIABLE ET NOUVEAU FRETOP 

GBC LC 

STA FRETŒ 

LDA FRETOP+# 

SBC #0 

STA FRETOP+] 

LDA ZY,Y  :TRANSFERT VALEUR DE LA VARIABLE 
sac A SON ADRESSE + CONVERSION *ECRAN" 


:STOCKE LONGUEUR ORNS ZDNE-TABLEAUX 


ns SR), 
57 


237 S15 
238 Sid 
239 
240 
241 
242 517 
243 
244 
245 5170 
246 
247 
288 
249 


BYRARDNE D 


Bd 
8 


GBC #$80  : -) "CODE ASCII" 
STA {FRETOP),Y 

INY 

CPY LC 

BE 513 

LDY #1 

LDA FRETDP 
STA (TAB2),Y 
LDA FRETOP+1 
INY 

STA (TAB2),Y 
INC AVT 

LDA AVT 

CP VER 
BNE S14 

JSR FRE 

JHP EXA 

LDA TAB2 
CLC 

ADC +3 

STA TAB2 
BCC 515 

INC TAB2+: 
Jæ 560 

LDA NVT 

BNE 517 

JSR FRE 

JD ExA 

LDX MP 

BNE 5170 
STA NP 

DEC AVT 

LDA TAB2 


«STOCKE L’ ADRESSE DE LA VALEUR DANS 
+2ONE DES TABLEAUX APM.ESOFT 


:DERNIER INDICE A ETE TRAITE ? 


PASSAGE A L’INDICE SUIVANT 


ESC’ SUR 1ERE VARIABLE -) SORTIE 


:DRAPEAU LA GU ON “REMONTE" 
RETOUR À L’ INDICE PRECEDENT 


STA YAB2+1 
EDA ADT2 
SEC 

SBC 44 
STA ADT2 
LDA ADT2+f 
SBC #0 
STA ADT2+1 
JM 570 
JSR 5508 
JW EXA 
JSR 50 
JSR S6 
JSR 57 
JSR 5516 
J 553 
LDX #0 
JSR SiiA 
JSR 57 
LDY #G 
LDA (TAB2),Y 


"PRINT DE L'ENSEMBLE DU TABLEAI 


*EFFACE AVANT AFF 1CHAGE 


7" DECPrOPEPESYS 
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‘RECUPERE LONGEUR ET ADRESSE VALEUR| 331 


UDA {TAB2),Y 
STA ADV 

INY 

LDA (TAB2), Y 
STA ADV+1 
{DY #0 


LDA (ADV),Y AFFICHE LA VALEUR DE LA VARIABLE 


“MARQUE LA FIN DE LA DONNE 


RTS 

LDR TAB2 
CL 

ADC #5 
STA TAB2 
BCC 555 
INC TABP+1 
JP si 
JSR 5500 
{DY #0 
JSR Si 
Je 560 
JSR 56 
JSR 56 
JSR 57 
LDX #6 
JSR S1iA 
INC NVT 
LDA NVT 
CHP AVAR 
BNE E2 
JMP EXA 
LDA TAB2 
CC 

ADC #35 
STA TABP 
BCC ES 
INC TAB2+1 
JW Eâ 
LDA 
GNE DEP 


PASSE A AFFICHAGE INDICE SUIVANT 


*PRE-AFFICHAGE TAB. AVANT MODIF. 


*€FFACE TOUT LE TABLEAU À L'ECRAN 


:ROUTINE D’INOUT CARAC./CARAC. 
«VOIR POWS NO 6 
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332 {DX LO 
333 OPO  STA LY,X 
54 DEX 

Ass] BPL 0EPO 
36 DEP LDX #0 
337 ST E 

3S8 DEP: JSR GT 
39 CP #$8D 
340 BEQ FINI 
3! CPX LO 
42 BCE SUITS 
43 CHR #$88 
hé BED RETOUR 
45 JSR SFBED 
46 JM DEP! 
7 SUITS CMP #492 
LT) BME SUITI 
49 CPX 40 
350 BNE SUITI 
351 LDA #9 
#2 STA € 

53 RTS 

JA SUITI CB AAC 
55 BNE SUIT2 
56 LOA #ShE 
357 JP SUITE 
358 SUIT2 CMP #$AE 
359 BEG SUITE 
30 CNP 4588 
k! BE SUITS 
32 CPX #0 
33 BEQ SUITZ 
36 RETOUR DEX 


Récapitulation I1G.OBJ 


*8E70.9161 
8E70- AC 47 91 
8E78- 84 19 AO 
8E80- 60 20 B1 
8E88- 493 DO 03 
8E90- DO 03 4C 
8E938- 1D C9 45 
8EAO- 20 B1 OO 
8EA8- D7 85 EB 
8EBO- OO 85 1A 
8EB8- OO 85 1A 
8ECO- 9C 90 20 
8EC8- A7 9O 20 
8EDO- AO OO B1 
8ED8- C8 C8 B1 
8EEO0- 06 C8 B1 
8EE8- AS 06 85 
8EFO- 18 85 1B 
8EF8- B1 18 85 
Poms n° 10 


375 


385 SUIT? 
386 
387 SUITÉ 
388 
389 
390 
391 SUIT8 


8FO0O- 
8FO08- 
8F10- 
8F18- 
8F20- 
8F28- 
8F30- 
8F38- 
8F40- 
8F48- 
8F50- 
8F58- 
8F60- 
8F68- 
8rF70- 
8F78- 
8F80- 
8F88- 
8F930- 
8rF938- 
8FAO- 
8FA8- 
8FBO- 


DEC H 


JP DEPI 
CKD #59 
BNE SUITG 


LDA $25 


JSR $FBC: 


UDY # 
DA (4DR!,Y 


Jp SUITS 
CHF 4580 
RCC DEP! 
CP #4DB 
BCS DEP: 


EDY TY 
CPY #1 


BEQ SHITE 
CAP 44AF 
BCS SUIT7 
DMP #$AD 
BNE DEP 
CXP 45Bf 
BCS DEPI 


CPX #0 


BNE SUITS 
CNP #$R2 
BEG DEP] 


JSR OUT 


STA VX 
IX 
JMS DEPI 


STX 1C 


RTS 
DC* “INT" 
END 


DR RE 
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8FB8- E4 07 FO O9 AS AO 20 ED 9090- 18 69 03 85 1E 9O O2 E6 
8FCO- FD E8 4C B8 8F 60 AO O0 9098- 1F 4C 47 9O 20 44 SO AO 
8FC8- A5 O9 91 1E FO 25 AS 6F 9SOAO- OO 20 EF 8E 4C 3B 8F 20 
8FDO- 38 E5 O9 85 6F A5 70 E9 9SOA8- DO 8E 20 41 8F 20 53 8F 
8FD8- 00 85 70 B9S 11 03 38 ES 90BO- A2 OO 20 B8 8F E6 D6 A5 
8FEO- 80 6F C8 C4 O9 DO F3 30B8- D6 C5 1D DO 03 4C 81 8E 
8FE8- AO AS 6F 91 1E A5 70 90CO- AS 1E 18 69 03 85 1E 90 
8FFO- C8 1E E6 D6 AS D6 C5 90C8- 02 E6 1F 4C AA 9O A5 D7 
8FF8- 1D DO 06 20 7C 92 4C 81 90DO- DO 10 A5 D6 C5 EB 9O OA 
9000- 8E 1E 18 69 03 85 1E 930D8- A9 80 A6 O7 9D 11 O3 CA 
Fe 9008- 90 E6 1F 4C 3B 8F AS 9SOEO- 10 FA A2 OO 86 O6 20 OC 
_ 9010- D6 06 20 7C 92 4C 81 9SOE8- FD C9 8D FO 72 Ed O7 9O 
“a 9018- 8E A6 EB DO O2 85 EB C6 9JSOFO- OA C9 88 FO 28 20 DD FB 
Sa 9020- D6 AS 1E 38 ES 03 85 1E 9SO0F8- 4C E6 9O C9 9B DO O9 EO 
E 9028- AS ES OO 85 1F AS 18 9100- OO DO 05 A9 09 85 06 60 
= 9030- 38 04 85 1B AS 1C E9 9108- C9 AC DO O5 AS AE 4C 55 
EE 9038- O0 1C 4C 4D 8F 20 44 9110- 91 C9 AE FO 40 C9 88 DO 
FE 9040- 90 81 8E 20 DO 8E 20 9118- OA EO OO FO O6 CA C6 24 
“E 9048- 41 20 53 8F 20 53 90 9120- 4C E6 9O C3 95 DO OC AS 
“s 9050- 4C 90 A2 OO 20 B8 8F 9128- 25 20 C1 FB Ad 24 B1 28 
É. 9058- 20 8F AO OO B1 1E 85 9130- 4C 55 91 C9 AO 9O AF C9 
9060- O9 1C C8 B1 1E 85 CE 9138- DB BO AB A4 O8 CO O1 FO 
9068- C8 1E 85 CF AO OO B1 9140- OC CS AF BO O4 C9 AD DO 
9070- CE 69 80 99 11 03 20 9148- 9D C9 BA BO 99 EO OO DO 
9078- ED C8 C4 O9 DO FO A9 9150- 04 C3 A2 FO 91 20 ED FD 
9080- 80 99 11 03 60 E6 D6 AS |3158- 9D 11 03 E8 4C E6 9O 86 
3S088- D6 1D DO O1 60 AS 1E 9160- O9 60 
< : 11 
COMEIC Un vrai discounteur !!! 





annonce l'arrivée prochaine des micros du futur : 


LES MULTI-COMPATIBLES 


En fichez l'interface i vous avez le langage FORTHTM l'interface ll vous avez un IBM-PCTM l'interface lI| vous êtes 
compatibles APPLE" {et vous pouvez vous même construire l'interface I un jeu d’enfant !!!} 


PRIX TVA COMPRISE 


“Diskettes 5" 3M:SE-DD hs LEA Sr les 10 


- Disk Drive pour AppleT"M 


{mécanismes Siemens : la “Rolls” des Drives !!) ,...,....,,..,..,. 
=Carte mémoire 16:K° secs uno asurs ï BOB. SALÉES 


- Carte 80 colonnes 


-Carteimprimante parallèle: ;suemvmnzassanten msn pacs cor Réineus 
:Carlecontrolleurpour Drivé sasiatenease es coieu cunre cet eieere 
- ImprimantetypeNec.8023 «ges amiante M AUS vf 

SEIKOSHA GP 100 A .... RE RDV z ee 


- Monitor grande marque 12" Vert ..,.,.....,.....,,.,....,.... 


- Réveil LCD à fixer sur Monitor . 


À VENIR : UN MICRO 64K + DRIVE + MONITOR ............. 


189,00 F 
1 790,00 F 


2 950,00 F 
770,00 F 


. 1 155,00 F 


890,00 F 
675,00 F 

4 950,00 F 
2 350,00 F 
1 150,00 F 
79,00 F 


9 950,00 F 


À VENIR : FRANKLIN (le compatible APPLETM US. MEDFEYTM, des compatibles 


ATARITM , COLECO'M, TRS-80T" KEEP CONTACT !!! 


COMEICO SARL, 97, rue de Richelieu, 75002 PARIS 


{Chercheurs français, Pouvens réaliser vos projets à bas prix en Extrême-Orient grâce à nos bureaux à Hong-Kong, Taïwan. 
Contacter M LONG) 
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Pom's n° 10 


Un calendrier perpétuel en Visicalc 


À voir les exemples proposés habi- 
tuellement en démonstration des 
possibilités du programme Visicalc. 
on finit par ressentir une certaine las- 
situde à l'égard des chiffres et des 
modèles de gestion. Dans ce mo- 
deste article. je voudrais prouver qu'il 
est possible. avec ce programme gé- 
nial. de faire autre chose qu'une 
feuille d'impôt. une gestion de 
compte bancaire. un bilan de PME 
ou … le tableau de bord des ventes 
de Pom's. 


Voici donc un calendrier perpétuel. 
qui serait réalisable en BASIC. mais 
dont Visicalc permet une présenta- 
tion agréable obtenue rapidement. 


Le mode d'emploi en est très sim- 
ple : il suffit de charger la feuille élec- 
tronique (si vous n'avez pas la dis- 
quette d'accompagnement de ce 






A B C 


Vosnueswnrl 


D E F 
CALENDRIER PERPETUEL SUR VISICALC 


numéro de Poms. il vous faudra 
taper les foimules ci-jointes}: on ini- 
tialise le tableau avec (*CY). on se 
met en recalcul manuel ((GGRM) avec 
ordre par lignes d'abord (/GOR) et 
on définit une largeur des colonnes 
de 6 (/GC6). On écrit alors le quan- 
tième (numéro du jour) dans la case 
B7 {de 1 à 31). le numéro du mois 
dans la case D7 (de 1 à 12) et les 4 
chiffres de l'année dans la case F7 
(de 1582. date de mise en service du 








€C) OLIVIER HERZ POUR POM’S 


Olivier Herz 


calendrier Grégorien actuel. à 2199). 
D ne reste alors qu'à forcer un recal- 
cul en pressant la touche ‘!” et l'on 
peut lire les résultats suivants . 


® année bissextile ou non 


® le nombre d'or de l'année. c'est-à- 
dire le rang de l'année dans le 
cycle de METON (19 années va- 
lent 235 lunaisons) 


e la lettre dominicale qui indique 
quel jour tombe le ler janvier 
(1-s G— Lund. 2 F— 
Mardi... 6— B..+ Samedi, O0 
À — Dimanche) 


e l'épacte. qui est l'âge de la lune 
au ler janvier. diminué d'une 
unité 


e le jour de la semaine (1 — 


Lundi, … 0-+ Dimanche) 


e l'âge de la lune (en sachant que 
@=Nouvellk lune, 7=Ptemier 
Quartier. i4+Pleine Lune et 
21=Dernier Quartier) 


Nous ne détaillerons pas les calculs. 
qui se font dans les cases invisibles à 
droite de l'écran et utilisent teutes les 
possibilités de Visicalc (expressions 
numériques ou booléennes, fonctions 


JOUR: 15 MOIS: 12 ANNEE: 1983 diverses dont. @& LOOKUP. } mais 

nous ne saurions trop conseiller à 

BISSEXTILE: FALSE tous ceux que cela intéresse la lec- 

*G 1 LUN ! ture de l'excellent ouvrage ‘Le Ca- 

10 NOMBRE D’OR: 8 !F 2 MAR ! lendrier” de Paul Couderc. dans la 

11 ,E 3 MER ! collection ‘Que-Sais-Je?”. doù sont 
12] LETTRE DOMINICALE: 6 ‘D 4 JEU ! HR ee ones 

12 PCR LEARN À partir de cet exemple. on voit que 

14 EPACTE: 16 !B 6 SAM ! seul le manque d'imagination peut li- 

15 ‘A O DIM ! miter les utilisations possibles de Visi- 

16 DATE DE PAQUES: 3 4 cale. Alors. tous à vos feuilles électro- 

17 O N£L niques pour réaliser. entre autres. des 

18 JOUR DE SEMAINE: jeux comme la bataille navaie. ou 





AGE DE LA LUNE: 


B 
= 
B N 
TU T 
mr © 


même le Mastermind (ce dernier cas 
est un peu plus complexe. mais par- 
faitement réalisable). 


ven 
44 
+4. 
+ 


1 
3 








G H ps K E M N 0 
1 15 16 7 18 193 20 21 22 
2 7 7 8 8 3 9 9 10 
3 49 16 17 18 19 20 21 22 
4 4 4 3 2 1 x [e) 6 
=) 
6 1:9 104 7 157 7 7 2486 1 16 
7| FALSE FALSE FALSE 27 46 40 29 
P Q 






»WNr 






NATENTE Cl ude to enE 
nus 22e 
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1x /X)RLI)Gi: DE2:S 





FICHIER VISICALC : 





CALENDRIER VISICALE 


GE }Di0:+16+i 

156 }72:9 }5410 jp Sr 

15h }u2:3 iGf:1 Prigi" A3 : 

5308 V2: iRéti jets ŒÆS 

lu: ih2t1 3S4:: }Fiiis MER : 

sadit CAUEX 254 Jsété DAS ZIPLETIRE 
)Bi:"DR:ER }v2:6 jus 1Biz:" DONN 
PCLINDENDET  )1222 }véit Joyce 

>D1" UE SC aR2tà Mrbsé }DiE:+07-176@1a7 (]7/7;; 
PERIVR VISIO 43: 1T pxat7 ED 4 

pe ECALE )B3:") GLIV Ve: JEADIP 

161:1© IH" IES AE )14:9 JEpSer ES 

jHit16 IDS''RZ PCU ffe:9 )F1St" VEN 

11:47 DEXIA SO agi" JOUR: )B:6:" £ 

}j!t14 »F3:"S JEG:/FLIS }C14: "F6ÛTES 

»#1:13 53:15 CS #51: )Di4+96 

}-1120 )h3:1i6 1D6:/FLS lEigst SE 

#52: PASSAT }EG''ONNEE : F1: SE : 

PN2:22 13311 =6t/ELISES jei9tt 

221! 43:19 PGRIBINT FE 180) }F15:* DE 

361412 33:20 )n6'8INT (F6/:9) jgibit EN 

RE: 28:21 )I61+F6- (1 4H5) )Bis:"E D © 
}Site JNé:22 D F6: 19% i6r:S+6 TOR (66. 51,,,N1) )CI6:"AGLES: 

17139 DÉRCE PAST +J6-LIOHG INT (16/50); )DIG:6TFILE-ME €= 3. 2942 6-6, L6-MG-3) 
uit6 }4ÿ12 PLRIBIF (EUR (AG= 23 BANDACGZ2E. En) 10: 3, KS-:, 6) )Ei6:/PLGIFILE-NG 23 3.6) 
Vi ARR MMÉHEGEBINT IT 674) CABLOGN LE (56, 33... AI! JE:72 * ÿ 

}#2:8 CRT" HKOS +N@- (FR SINT (6/79: 25175 NL 

1:19 11352 DB 2081 (KE ZT 5E-46,25-6) )fi8:t JIUR 

fit: 316 i87:1F6/8)=8iNT {6 6/6) >Btge" DE SE 

vis }v3:7 FE TIOAND( IF E/100)=8INT Cu/100), (b/1100) CRINT FR /G GO) JOIE BI MAINC: 

rRBIZ JWitE 2:7:60ND87,8N0T IL 7it JDi8i+H7-(Ta6INTIA7/7)) 
152:7 }K3:5 17 4N6-L6+48 171890: 17.63), 32. 33) )Eigs i 7 

4217 3510 DK7 47e Hbe8 SUROSD6, 21, ., ABL) jFigt" PO ! 

}.è18 FZ3tti DT +B6i SOUPLE. ST... A0) jEsgi® | 4 

Ki )AR 3:22 PATIÉTEC(DO/2)r RAT D6/2). 23, 33 JEjase 

11219 15414 FEg:" RIGSE pAèdet QE 

Dr ART PCGi"ATILE: }B20:" DE LP 

3m 2: )T4:3 }D8+17 }C2Q:" 2 UNE: 

IN: )54t2 JEgt 18 }D24:817 {1 7) =M7 L7-M7 17) 
}92:S TRI gi" LUN }E20:* 21 

18212 }Léri 810: NOT RKE }£20:° D0 

8212 }M4 10 }Cigss D'OR: 


Liste sortie par le programme LISTE de la disquette 


Transformation 
hexadécimal/décimal 
ultra-rapide 


Cette transformation n'utilise que la 
ROM de l'Applesoft : pas de pro- 
gramme à charger. De plus, elle ne 
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détruit aucune mémoire de l’Apple- 
soft ou de ses programmes. 


Eile utilise la routine LINPRT 
(SED24), qui affiche un nombre 
hexadécimal de 2 octets (octet haut 
dans l’accumulateur À et octet bas 
dans le registre X). Le résultat est 
donné entre 0 et 65535. 


« Visicalc sur Apple » 


Si XYZT représente ce nombre, il 

suffit pour donner une valeur aux re- 
istres, selon le manuel de référence 
e l'Apple, de faire : 


] CALL —151 
* CTRL-E 


w :XY ZT N ED24G (noter pour une 
fois l'ordre octet haut-octet bas !} 


Poms n° 10 


Conversion de Big Mac vers Lisa 2,5 


De nombreux programmes en lan- 
gage assembleur publiés dans Pom's 
sont écrits avec l'assembleur BIG 
MAC que je ne possède malheureu- 
sement pas. Par contre, je suis pos- 
sesseur du LISA 2,5 et, lassé de reta- 
per des fichiers-source inutilisables 
par mon assembleur, je me suis donc 
décidé à écrire un programme qui 
traduirait automatiquement les fi- 
chiers BIG MAC en fichiers LISA. 


Ce programme pouvait a priori être 
conçu pour deux types de tâches dif- 
férentes : 


- soit une simple transformation du 


fichier pour le rendre lisible par 
LISA ; 


- soit, en plus, une traduction, dans 
la mesure du possible, des instruc- 
tions BIG MAC en instructions LISA. 


La seconde solution étant évidem- 
ment la meilleure, c'est celle que je 
me suis efforcé de mettre en oeuvre 


Le fonctionnement du programme 
est très simple : après avoir chargé 
en mémoire le fichier BIG MAC. 
sauvé sous forme Binaire, il l’exa- 
mine entièrement pour trouver les 
fermats d'instruction différents selon 
l'assembleur, 


Les changements possibles sont les 
suivants: 


e suppression des lignes vides 


51, 


e remplacement de “+” par 


En effet, si LISA accepte ‘’«" 
comme annonce d'une remar- 
que en début de ligne, il le re- 
fuse en milieu de ligne. 

Exemple : 

+ ceciest accepté 

LDA #$60 x mais pas ceci 

; ceci est accepté 

LDA #$60 ; ainsi gue cela 


Dans le doute, le programme rem- 
place tous les ”’*”’. 


© remplacement de ”#<°' par “#” 
Partie haute d'une adresse ; 
exemple : 
LDA # FC58 ; = LDA #$FC 


e remplacement de ’#>” par ‘/” 
partie basse d'une adresse; 


exemple : 
LDA /FCS58 , = LDA #$58 
® insertion du caractère ”!" si «, +, 


—ou ! (EOR) suivi d’un nombre 
non précédé de ”’$” sauf après 
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l'instruction HEX. 

Avec BIG MAC un nombre est 
considéré comme décimal s’il 
n'y à pas de ‘’$” devant. Pour 
LISA, tout nombre décimal doit 
être précédé de ”!”. Exemple : 
LDA 136 ; = LDA 36 pour BIG 
MAC 


e remplacement de DFB par DFS 
DFB $nnn réserve nnn octets 
pour BIG MAC et, par exem- 


ple : 
VAR DFS $2: gardera deux 
octets à l'adresse VAR en LISA 


© remplacement de DDB par ADR 


ADR LABEL remplacera les 
deux octets suivants par 
l'adresse de LABEL. 

Exemple : 


ADR HOME :(HOME=S$FCS58) 
génère 58FC 


® remplacement de EQU par EPZ si 
l'adresse suivant l'instruction est 
en page zéro (inférieure à 256). 
Certaines instructions travaillent 
sur des adresses de page zéro, 
comme LDA (LABEL,X) Or, si 
BIG MAC sait automatiquement 
si une adresse est en page zéro, 
cela doit être précisé avec LISA 
par EPZ (Equates Page Zero). 
Exemple : 
LABEL1 EQU $FE 
LABEL2 EPZ $FE 
LDA (LABELI,X); provoquera 
une erreur 
LDA (LABEL2,X) , = LDA 
(LABEL2+X) 


© remplacement de “=” par “EPZ” 
même chose {”=” égal "EQU”) 


pt 


e remplacement de 
exclusif). 
Exemple : 

A = $41,$80 ; À = $Ci 


ATTENTION : 
le programme TRANSFERT modifie 
aussi les remarques : 
Exemple : 
AB = $23 : AB = 23 
donnera: 
AB EPZ $23 ; AB EPZ $23 


par A” (ou 


Une fois le fichier intégralement mo- 
difié et sauvé sur disquette (sous son 
nom d’otigine précédé de LISA), il 
peut être chargé avec LISA par l'ins- 
tuction CTRL-D EXEC... 


Toutes les modifications envisagea- 
bles et nécessaires n'ayant pu être 
ptises en compte dans mon petit pro- 
gramme, il se peut que ce charge- 
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ment soit brusquement interrompu et 
qu'un message d'erreur apparaisse. 
Dans ce cas, il suffit de corriger la 
ligne (ainsi que le demande d'ailleurs 
LISA) et ja suite du fichier continuera 
à se charger. 

Exemple : 

Ligne N° 125 de “La Program- 

mation Facilitée” (Pom's N° 5) 

125 PHA +DE 

LISA prend le DE comme la 

suite de PHA et stoppe. Il suffit 

de taper PHA :DE pour que la 

suite se déroule normalement. 


Voici enfin quelques précisions sur le 
fonctionnement du programme : 


Ligne 10: 

Protection du 
HIMEM. 

Le fichier créé sera affiché à 
l'écran (MON Out). 

Lignes 40-80 : 
Mode 
gramme. 

Lignes 100-110 : 

Saisie du nom du fichier-source. 
La routine utilisée est la routine 
dont se sert Applesoft pour l'en- 
trée des programmes. 

Elle permet donc la saisie de 
virgules. etc. 

La chaîne de caractères est sto- 
ckée à partir de l'adresse 512 
($200) et se termine par ©. 

Ligne 130 : 

Chargement du fichier source à 
l'adresse 6000. 

Ligne 140: 

Message invitant à changer de 
disquette si l'utilisateur a indi- 
qué le même drive pour les 2 
fichiers. 

Lignes 160-180 : 

"WRITE” n'acceptant pas de 
précisions quant au slot et au 
drive, ces indications sont reti- 
rées du nom. 

Lignes 190-210 : 

Ouverture du fichier. 
INS indique à LISA que des 
lignes vont être ajoutées au pro- 
gramme en mémoire. 

Lignes 210-470 : 
Création du fichier LISA. 

Ligne 500 : 
Fermeture du fichier. 
Les adresses 43616 et 43617 
indiquent la longueur du dernier 
fichier chargé (c'est-à-dire le fi- 
chier BIG MAC). 

Lignes 530-650 : 

Sous-programme permettant de 
détenniner si le nombre suivant 
est inférieur à 256 (pour EQU 
et EPZ). 


fichier par 


d'emploi” du pro- 
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Variables utilisées par le programme 
principal : 


SL = PEEK(43626) et DR = 
PEEK(43624) : Slot et Drive en ser- 
vice au début du programme et donc 
pour le fichier LISA. 


A$ : nom du fichier BIG MAC avec 
le Slot et le Drive. Attention, le nom 
du fichier doit bien comporter le suf- 
fixe ".S"” caractéristique des fichiers- 
source BIG MAC. 


A$,B$ : on se seat de B$ pour sup- 
primer de A$ le slot et le drive. 


PO,/P1P2,P3. Px=PEEK(T+x-1), 
utilisé pour simplifier la lecture du 
programme. En effet, les codes des 
caractères vont de 128 à 255 au lieu 
de O0 à 127, d'où. 

IF P1=193 THEN … 

au lieu de. 

IF P1=ASC(' A”) THEN … 


HEX : HEX=1 si l'instruction précé- 
dente est HEX. 


T : variable servant aux boucles. 
Variables du sous-programme: 


HEX$ : contient les caractères du 
nombre hexa suivant. 


HEX : code de chaque caractère de 
HEX$. 


DEC = HEX$ mas en décimal. 
EPZ : EPZ = 1 si DEC < 128. 


I : variable servant aux boucles. 





O REM 
PROGRAMME DE CONVERSION 
BIG MAC <==> LISA V2.5 


PR RSR | 


10 HIMEM: 6000: 
20 REM 


SL=SLOT ACTUEL 
DR=DRIVE ACTUEL 


Transfert IDS (AS,T,1): NEXT 
170 AS = BS 
BIG-MAC 180 PRINT CHRS (4)"OPEN LISA."AS",D"DR 
vers LISA ",S"SL 
130 PRINT CHRS (4)"WRITE LISA."AS 
200 PRINT “INS" 
210 FOR T = 6000 TO 6000 + PEEK (43616 
) + 256 « PEEK (43617) - 1 
- , 220 P1 = PEEK (T):P2 = PEEK (T + 1):P3 
PRINT CHRS (4)"MON O “= PEEK (T + 2):PO = PEEK (T - 
1) 
230 REM 


SI UNE LIGNE EST VIDE, 
ON LA SUPPRIME. 


30 SL = PEEK (43626):DR = PEEK (43624) 

40 HOME : INVERSE Ode pr 

SO PRINT “CONVERSION BIG-MAC >>>»>>>>> |2So ïF Pi - 
LISA V2.5 260 REM 

60 PRINT : PRINT “TAPEZ LE NOM DU FICHI 


ER BIG-MAC 


CAVEC EVENTUEL 
LEMENT LE DRIVE ET LE SLOT" 


70 NORMAL : PRINT "LE FICHIER LISA SERA 


ENREGISTRE SUR LA DISQUETTE ACT 


141 AND PO - 
141 THEN HEX = O 


141 THEN 480 


ON REMPLACE LE CARACTERE # PAR ; 
(VOIR COMMENTAIRE) 


270 IF P1 = 170 THEN POKE T,187 
UELLEMENT EN SERVICE." 260 REN 
80 PRINT “(ACTUELLEMENT SLOT "SL" ET DR 
D #< DEVIENT # 
207 7RER EX: LDA #<DEBUT ==> LDA #DEBUT 
SALLETOSSR OSDSES CINE ENS 230 IF P1 = 163 AND P2 = 188 THEN T=T 
LES CARACTERES DE LA CHAINE 300 REM 
SONT RANGES A PARTIR DE 
512 ET LA CHAINE EST TERMINEE 
PAR LE CARACTERE NUL (500) 
#> DEVIENT / 
100: PRINT 18: PRINT. “==> "5: /CALL. — 1096 | ÊX: LDA N>DEBUT => LDA:YDEBUT 
4 
1107 CEDROT = 12 TU BI 26 UIR PEER, | ALOCMTENEES 1e ANDERRN "SOS THEN CT NT 
(TD) < > O THEN A$ = A$ + CHRS € OA ERRETELES 
PEEK (T)): NEXT 320 REM 
120 NORMAL 
130 PRINT CHRS (4)"BLOAD*AS", A6000" CHERS ANNONCE. DES :CRFEPRES" HEXA 
140 IF SL = PEEK (43626) THEN POKE - |MAIS SANS ’$’. SI ’HEX’ EST 
16368,0: PRINT "CHANGER DE DISQu |TROUVE ALORS HEX=1 
E PUIS TAPER UNE TOUCHE": WAIT - 
16384,128: PRINT : PRINT 330 IF P1 = 200 AND P2 = 197 AND P3 = 2 
150 REX 16 THEN HEX = 1 
340 REM 


ENLEVE DU NOM DU FICHIER 

LES PARAMETRES (SLOT ET DRIVE) SI UN NOMBRE EST PRECEDE DE 
*rto+t,-0#" * SANS LE SIGNES, 
C’EST UN NOMBRE DECIMAL ET 


ON LE FAIT PRECEDER DE *’!”. 


160 FOR T = 1 TO LEN (AS): IF MIDS (A 
S,T,1) < > "," THEN BS = BS + M 
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350 REM (EXCEPTION ‘“HEX‘) 


(VOIR PLUS HAUT) 


450 


10 
REM 


360 IF P1 > 175 AND P1 < 187 AND (PO = ? DEVIENT “ (OU-EXCLUSIF) 
163 OR PO = 161 OR PO = 170 OR PO 
= 171 OR PO = 173 OR PO = 160) A | 460 IF P1 = 161 THEN POKE T,222 
ND NOT HEX THEN PRINT CHRS (16 | 470 PRINT CHRS ( PEEK (T)): 
1); 480 NEXT 
370 REM 490 PRINT : PRINT “ END" 
500 PRINT CHRS (4)"CLOSE* 
DFB DEVIENT DFS 510 END 
520 REM 
380 IF P1 = 136 AND P2 = 198 AND P3 = 1 
94 THEN POKE T + 2,211 CONVERSION HEXA-DECI 
390 REX 
530 X=T +5 
EQU DEVIENT EPZ SI L’ADRESSE QUI 540 HEXS = CHRS € PEEK (X)) + CHRS& « P 
SUIT EST INFERIEURE A 256 ($FF) EEK {X + 13) + CHRS ( PEEK (X + 
2)} + CHRS € PEEK (X + 3)) 
400 IF P1 = 197 AND P2 = 203 AND P3 = 2 | 550 DEC = © 
13 THEN GOSUB 530: IF EPZ THEN 560 FOR I = 1 TO 4:HEX = ASC € MIDS (CH 
POKE T + 1,208: POKE T + 2,218 EXS,1,1)) 
410 REX 570 IF HEX < 176 OR CHEX > 185 AND HEX 
< 193) OR HEX > 198 THEN HEXS = 
= DEVIENT EPZ SI L’ADRESSE QUI CHRS (176) + HEXS 
SUIT EST INFERIEURE A 256 (SFF) 580 NEXT 
590 FOR I = 1 TO 4 
420 IF P1 = 1893 THEN T = T - 2: GOSUB 5 | 600 HEX = 5 - I:HEX = ASC ( MIDS (HEXS, 
30:T = T + 2: IF EPZ THEN PRINT HEX,1)) 
CHRS (197) CHRS (208) CHRS (218) | 610 IF HEX < 192 THEN DEC = DEC + (CHEX 
:: GOTO 480 - 176) » 16 ” (I - 1) 
430 REM 620 IF HEX > 192 THEN DEC = DEC + CHEX 
- 183) »* 16 “ (I - 1) 
DDB DEVIENT ADR 630 NEXT 
640 EPZ = O: IF DEC < 256 AND PEEK {X - 
440 IF Pl = 196 AND P2 = 196 AND P3 = 1 1) = 164 THEN EPZ = 1 
94 THEN POKE T,193: POKE T + 2,2 | 650 RETURN 


Pom’s vous propose sur une dis- 
quette indépendante, au prix de 
80,00 francs, un logiciel de création 


musicale, baptisé tout naturellement 
“MUSIC”. 


MUSIC permet de jouer des mor- 
ceaux de musique à une voix sur 
quatre octaves, du DO-1 au Sl-4, sur 
les clés de FA et de SOE. On ne 
peut intervenir ni sur le timbre ni sur 
le volume. 


MUSIC permet d'entrer un air en 
mémoire note par note et mesure 
par mesure, d'afficher la partition à 
l'écran au fur et à mesure, d’effec- 
tuer des modifications. de supprimer 
où d'’intercaler des mesures, de re- 
produire des refrains sans en entrer à 
nouveau chaque note, d'examiner la 
partition mesure par mesure, de 
jouer Pair intégralement, par fraction 
ou par mesure, de modifier le tempo, 
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de sauver un air sur disquette et de 
modifier ou compléter un air déjà en- 
registré. 


MUSIC peut être utilisé simplement 
pour jouer ou déchiffrer une parti- 
ton. Il code chaque note ou silence 
sur 10 octets et peut interpréter des 
airs de 870 notes. Sous cette forme, 
les airs de musique sont affichables, 
exécutables, modifiables. 


Il peut également servir à créer des 
séquences musicales destinées à ani- 
mer d'autres programmes. Les airs 
sont alors compactables pour cette 
application et chaque note n’est plus 
codée que sur 5 octets, avec pour 
conséquence de supprimer les possi- 
bilités de modification et d'affichage 
(la présentation de la disquette 
donne des explications détaillées 
pour cette utilisation). 


MUSIC 


Joël Delannoy 


Mode d'emploi 


Chaque note ou silence demande 4 
à 6 paramètres pour sa définition : 


e Note: DRMFSLZ O0. respecti- 
vement pour DO, RE. MI FA, 
SOL, LA, Sl et SILENCE. 


e Altération: B D ESPACE. pour 
Bémol, Dièse et Bécarre. 


e Octave : un chiffre de 1 à 4 
e Durée: KC NB R. pour double- 
croche, croche. noire, blanche et 


ronde. 


e Point : POINT ou ESPACE, selon 
que la note est pointée ou non. 


e Liaison: S (aux notes suivantes), 


HE 


HR ERIERSS 


Cisiiiti 
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P (aux notes précédentes), 2 (les 
deux). 


Les notes ou silences sont entrés 
sous le format NAODPL. soit Note- 
Altération-Octave-Burée-Point-Liaison. 
Exemples : 


Mi-3 . bémol . blanche ; pointée ; liée 
suivante : MB3BS 


Demi-pause : 0 B 


Si, au lieu de taper une note, on 
tape : 


X : on retourne au menu 


/: on annule la dernière note entrée 
{on ne peut annuler plusieurs notes 
que si elles ont la même durée, mais 
le programme ne le contrôle pas, ce 
qui impose une certaine auto-disci- 
pline ou à défaut la destruction de la 
mesure dont la durée ne sera plus 
bonne). 


Î n'y a pas d’armure à la clé et l'alté- 
ration doit donc être précisée à cha- 
que note. 


La machine n'affiche pas les dièses 
mais les convertit en bémols. par 
exemple RE dièse en MI bémol. soit 
exactement le même son. 


L'écran fournit un certain nombre 
d'indications : 


TE : tempo des mesures à venir 


TI: tempo le plus bas dans le mor- 
ceau 


TA: tempole plus haut 
RY . rythme (2, 3 ou 4 temps) 


NT : nombre de temps déjà occupés 
dans la mesure en cours de créaton. 


Pour information, le message ME- 
SURE INCOMPLETABLE ANNU- 
LEE concerne une mesure qui ne 
pourrait être complétée que par une 
triple-croche {non disponible). 


Catalogue des 
programmes 


e BONJOUR MUSIC : programme 
de salutation qui fixe le début du 
programme Basic en $6288 et 
lance l'exécution. 


e MUSIC: programme principal en 
Basic. 


e PRGMA: programme générateur 
de sons en assembleur. 





e PRGMAK: programme similaire 
destiné à jouer les morceaux 
compactés. 


e PGRMA-K-RELOCATOR: reloge 
PGRMAK au gré de l'utilisateur. 


e AFFMES : programme en assern- 
bleur d'affichage de la partition. 


e NOTSHAPES : tableau de formes. 
e — O Y&& : générique musical. 


e Des airs codés sur 19 octets, ter- 
minés par un &, et qui se char- 
gent en $4000. 


e Des airs compactés sur 5 octets 
avec adresse de début et lon- 
gueur, ils sont relogeables sans 
problème pour être joués par 
PGRMAK. 


NDLR - Comme pour le H-Basic. 
l'auteur touchera 10% des ventes du 
programme à titre de droits d'auteur. 
Pour toute diffusion en collaboration 
avec des éditeurs étrangers, l’auteur 
touchera 50% du résultat net. Dans 
le numéro 11, nous vous propose- 
rons probablement le D-D@S, un le- 
giciel comportant plein d'uÿlitaires 
pour le DOS et vous permettant d'en 
écrire facilement. 


a | 


LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 


RON 


poseuse. 





TRANSMETFTEZ-NOUS VOS TEXTES 


PAR TÉLÉPHONE 
eu 


BONNEZ-NOUS VOTRE DISQUETTE 


Ë Les textes de vos articles, catalogues, annuaires ou brochures 
J saisis sur votre APPLE sont envoyés directement sur notre photocom- 


Nous vous évitons ainsi, le coût et le temps de la saisie supplé- 
mentaire que nécessite le traitement traditionnel de [a photocompo- 
sition avant l'impression des documents, si vous le désirez nous pou- 
vons également nous charger de l'impression et du &rochage. 
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Tous les prix indiqués dans cette ru- 
brique sont des prix TTC en francs 
français. sauf indication contraire. 
Ces prix sont indicatifs : il est possi- 
ble que certains aient évolué entre le 
moment de la rédaction de la revue 
et le moment où elle vous parvient. 


Imprimantes 


Le marché des imprimantes pour 
micro-ordinateurs à usage personnel 
accueille un nouveau concurrent : 
Mannesmann Tally. entreprise déjà 
très connue pour ses imprimantes 
haut de gamme. Son dernier mo- 
dèle, la Spirit 80 (80 colonnes, 80 
caractères par seconde) attire immé- 
diatement l'oeil par sa ligne très réus- 
sie. Ce n'est heureusement pas sa 
seule qualité. La Spirit 80 dispose de 
possibilités graphiques et de jeux de 
caractères similaires à ceux de l'Ep- 
son MX80. avec des codes de 
contrôle comparables, ce qui facilite 
les problèmes d'’interfaçage avec les 
logiciels existants. Mais le plus remar- 
quable conceme sa tête d'impression 
qui utilise des aiguilles de section car- 
rée et non plus circulaire comme sur 
les autres machines. Cela permet une 
définition améliorée des caractères. 
Un trait reste un trait et non plus une 
succession de points, si rapprochés 
soient-ils. La qualité d'impression est 
également améliorée par l'utilisation 
dun ruban plastique qui offre une 
excellente homogénéité de limpres- 
sion (mais peut-être au détriment de 
la durée de vie du ruban). Dernier 
atout, son prix: 3500 F seule ou 
4500 F avec interface graphique. 
Chez Micropériph. 


Une marque d'imprimantes alleman- 
des, Robotron, est maintenant impor- 
tée par C.DATA. Deux modèles à ai- 
guilles dans la série 6310, avec trois 
largeurs de caractères (10, 12,5 et 15 
cp) extensibles en double largeur. 
offrent 100 cps en version 80 colon- 
nes (3250 F HT) ou 132 colonnes 
(4250 F HT). Le modèle à margue- 
Le pour 49 cps. se vend 9.950 F 


En ce qui concerne les imprimantes 
couleur, notons tout d’abord la 
GP700 de Seikosha présentée au 
dernier SICOB et disponible chez la 
plupart des revendeurs (environ 
5500 F}. ESP, pour sa part, nous 
propose une approche originale, en 
prenant le problème à l'envers: il 
transforme une imprimante normale 
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Micro-informations 


(l'Epson MX80 pour ne pas la nom- 
mer) en une imprimante couleur. Le 
kit proposé inclut quatre rubans cou- 
leur (noir. rouge. jaune. bleu et vert) 
ainsi qu'un logiciel et permet l'im- 
pression en couleur de l'écran gra- 
phique. Pas de modifications sur 
l'imprimante (en dehors du ruban) ni 
sur l'interface. Et un prix raisonnable, 
même au cours actuel : $70. 


Autre nouveauté. l'interface impri- 
mante PRINTT de TextPrint qui 
permet d'imprimer par l'action sur un 
bouton la page texte ou haute réso- 
lution, ceci quelque soit le pro- 
gramme en mémoire. Bien entendu. 
une fois l'impression terminée. le 
programme reprend son exécution 
comme si rien ne s'était passé. C'est 
une méthode très intéressante pour 
sortir les écrans des disquettes proté- 
gées par exemple. L'interface sup- 
porte les imprimantes classiques : 
Epson. Nec. Apple, Oki ainsi que les 
imprimantes couleur IDS et Transtar. 
Prix à l'unité : $300. 


Apple Computer vient de lancer un 
traceur (table  traçante) couleur 
{Apple Plotter Model 410) compati- 
ble avec Business Graphics. Les 
crayons de couleur (jusqu'à 4 en 
même temps) peuvent étre changés 
en cours d'opération afin d'obtenir 
une grande variété de couleurs. La 
surface utile est de 28 x 43 cm. Le 
traceur se connecte directement à 
l'Apple /// ou, dans le cas de l'Apple 
Il ou//e, à une carte série. Prix: 
$8865 F HT. 


Si le prix vous fait hésiter. pourquoi 
ne pas regarder du côté du traceur 
MCP 40 ? Quatre crayons couleur in- 
terchangeables. mais le tracé s'effec- 
tue sur un rouleau de papier ordi- 
naire de 11,5 cm de large (dont 9,6 
utilisables). Des performances hono- 
rables : 12 caractères par seconde en 
mode texte. 5 à 7 cm/s en graphi- 
que. interface parallèle Centronics et 
un prix tout petit (à la mesure de 
l'encombrement de l'appareil) : 2295 
F. Disponible chez Sivéa A noter 
que la même mécanique est 
commercialisée également sous le 
nom BFM 16. 


Ecrans sensibles 


Le battage publicitaire autour de la 
souris” semble en faire le nec plus 
ultra” en ce qui concerne la commu- 
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nication homme-ordinateur. C'est 
oublier un peu vite deux autres pes- 
sibilités également intéressantes : le 
crayon lumineux et l'écran sensitif. 
Premier système mis sur le marché. 
le crayon lumineux n'a pas eu le dé- 
veloppement escompté malgré des 
possibilités valables. Quelques modè- 
les sont disponibles sur Apple. mais 
rares sont les programmes qui l'utili- 
sent {au contraire de l'erdinateur 
TO7 de Thomson qui propose un tel 
équipement en standard). 


Le concept d'écran sensitif a été dé- 
veloppé par Control Data pour son 
système d'enseignement assisté par 
ordinateur Plato (maintenant disponi- 
ble sur Apple. mais sans écran sensi- 
tif!}, Quoi de plus naturel en effet 
que de pointer du doigt la 
commande nécessaire au bas de 
l'écran ou dans le menu ? Le nouvel 
ordinateur de Hewlett-Packard. le 
HP15@. dispose en option de base 
de telles facilités. Sur Apple. CTA 
propose une carte et un écran s'ap- 
pliquant sur tout moniteur 12 
pouces. La technique utilisée met en 
jeu des faisceaux infrarouges qui. 
lorsqu'ils sont interrompus (par le 
doigt ou tout autre objet). perrnettent 
d'en déduire les coordonnées X.Y du 
point. Le CTA 500X offre une réso- 
lution de 96 x 64 points. Les coor- 
données de la surface pointée sont 
mises à Jour continuellement et sont 
accessibles par le Basic Applesoft (et 


les programmes en langage ma- 
chine}. Prix USA : $6985, 


Cartes 


Avis aux fanatiques du 68088 {et de 
l'Apple) ! Vous pouvez trouver la 
carte Aristocard 68000 de Simon 
Computers chez Micropériph. Ce 
n'est certes pas la seule carte 68000 
disponible sur Apple. ni la plus éla- 
borée, mais c'est d’une part la pre- 
mière que j'ai vue en France. d'autre 
part la moins chère. Le package in- 
clut la carte. une disquette contenant 
un macro-assembleur 68000 et le 
manuel de référence de Motorola (en 
anglais). Si malgré votre expérience 
sur Apple, l'anglais vous pose encore 
quelques problèmes, vous pouvez 
toujours acheter le manuel de réfé- 
rence publié en français par Thom- 
son Efcis qui fabrique le 68000 en 
seconde source. Ceci dit, cette carte 
doit être réservée pour un usage di- 
dactique : connaissance du 68000 et 
de ses instructions, avec éventuelle- 
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ment possibilité de développer un 
système plus complet à partir de la 
carte. En effet, l’Aristocard ne dis- 
pose d'aucun langage (excepté l'as- 
sembleur) ni de logiciels évolués. De 
même. aucun système d'exploitation 
n'est prévu pour utiliser les disquettes 
(il est vrai que 140K de mémoire de 
masse pour un microprocesseur qui 
peut adresser jusqu'à 16 méga-octets 
de mémoire centrale, ce n'est pas le 
Pérou..). Une carte intéressante. pas 
trop chère (4900 F), mais à réserver 
aux amateurs avertis. 


Ceux qui voudraient utiliser le 68000 
avec un environnement logiciel plus 
complet (Fortran, Basic. Pascal, 
Forth. .) peuvent se reporter à la pu- 
blicité Alpha-Suystèmes parue dans 
l'Ordinateur Individuel d'octobre 83. 


Enfin. à tout seigneur tout honneur. 
je finirai ce petit panorama des cartes 
68000 par ce qui semble en être la 
Rolls : la DTACK Grande de Digital 
Acoustics : microprocesseur 68000 à 
10 MHz. 1 méga-octet de mémoire, 
possibilité de travailler en multitä- 
che. À ce niveau-là. l'Apple n'est 
plus qu'un périphérique de la carte 
68000 ! Prix non communiqué, mais 
certainement non négligeable par 
rapport à celui du système Apple 
complet. 


Une carte dont nous ne vous avions 
pas encore parlé : la carte Micromos 
256K pour Apple Il et //e se 
comporte comme deux fois huit 
cartes langage. L’adressage peut se 
faire par bus-adresses {1 bloc parmi 
8) où par bus-données (1 bloc parmi 
16) Plusieurs logiciels d'émulation 
disque sont fournis avec la carte en 
standard. 


Enfin disponible en France chez BIP, 
la carte accélérateur à 3,58 MHz 
dont nous avions parlé dans le nu- 
méro 8. Prix public : 4514 F HT. BIP 
propose aussi la carte Ultraterm 80 
colonnes à 4230 F HT : de 80 colon- 
nes par 24 lignes à 160 colonnes par 
24 lignes. en passant par 80 colon- 
nes et 48 lignes. Cette carte fonc- 
tionne indifféremment sur Îl Plus, //e 
ou ///. 


La carte @utix est une création ré- 
cente commercialisée par Logma: 
elle est destinée à être insérée dans 
un Apple pour former avec lui un 
outil de développement pour micro- 
processeurs. 


Particulièrement commode pour tra- 
vailler avec les versions ‘’piggv back” 
des microcalculateurs monochip. 
grâce à sa sonde directement 
connectable. elle permet la program- 
mation en assembleur ou en hexadé- 
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cimal. Fémulation et le debugging 
d'un microprocesseur prototype. 


Dès le début 84, vous pourrez ache- 
ter chez tous les revendeurs Apple la 
carte Apple-Tell fabriquée par Hello. 
Pour 5400 F HT. vous aurez une 
carte compatible Il Plus et //e qui 
joue les trois réles suivants : fonction 
Minitel/Vidéotex complète, modem 
automatique multimode intégré (300, 
600 et 1200 bauds). et cohabitation 
transparente avec les fonctions, logi- 
ciels et matériels habituels de l'Apple. 


Périphériques 


Apple vient de sortir le moniteur //, à 
présent vendu en standard avec les 
systèmes promotion. et dont nous 
apprécions le dispositif d'inclinaison 
de l'écran. 


Avec quatre où cinq cartes dans ses 
slets. l'Apple est toujours un ordina- 
teur, mais s'apparente également à la 
famille des radiateurs. Ce qui est très 
mauvais pour sa santé. Solution 
éprouvée : améliorer l'aération grâce 
à un ventilateur. Inconvénient ma- 
jeur un ronronnement permanent 
qui met les nerfs à rude épreuve. 
Nouvelle solution : le ventilateur de 
PACT Electronics qui se révèle éton- 
nant au niveau sonore. Comme la 
plupart de ses bruvants congénères. 
il se place sur le cêté gauche de l'Ap- 
ple sans aucun démontage et dispose 
d'un interrupteur lumineux sur sa 
face avant. Prix: 750 F chez Micro- 
périph. 


Logiciel 


À ce jour, le meilleur programme de 
jeu d'échecs sur Apple est Chess 7.0 
de Larry Atkin. Introduit au début de 
l’année, il présente des possibilités 
tout à fait étonnantes face aux pro- 
grammes précédents . possibilité de 
reprendre ses coups, de changer les 
pièces de place, de jouer en aveugle. 
de sauver la partie en cours sur dis- 
quette.. Pour ne pas être en reste, 
Hayden Software présente Sargon 
Il, successeur du très connu et ap- 
précié Sargon II. Jeu amélioré, coups 
plus rapides et possibilités nouvelles 
devraient en faire un best-seller. 


Dans les nouvelles versions de pro- 
grammes. citons également DB Mas- 
ter version IV qui replace Stoneware 
dans les premières places face à ses 
autres concurrents sur le marché 
es CX Base, Omnis et dBase 
Î. 


Voici également un nouvelle vague 
de programmes de copie, catégorie 


très prisée par les possesseurs d'Ap- 
ple. Locksmith 5.0, Back-it-up III et 
EDD (Essential Data Duplicator) de- 
vraient vous permettre de faire des 
backups de vos programmes otigj- 
naux (et à seule fin de sauvegarde |). 


Pom's vient de recevoir le célèbre In- 
credible Jack, qui permet de faire si- 
multanément du traitement de texte, 
de la geston de fichier et des calculs. 
Vendu $129 par Business Solutions, 
ce programme sera analysé pour 
vous dans le numéro de mars 84. 


Encore un programme de création 
graphique avec Charts Unlimited, qui 
propose 36 formes prédéfinies, 36 
symboles prédéfinis, réduction ou 
agrandissement d'objet. des droites 
en trait plein ou pointillés, une capa- 
cité d'édition de texte, la reproduc- 
tion d'objets à d’autres endroits. Le 
tout, compatible avec les impriman- 
tes Epson, IDS, Itoh, Apple, NEC et 
Anadex et les interfaces Parallèle et 
Super Série Apple (entre autres) 
pour $195 aux Etats-Unis. C’est un 
produit de Business Information Sus- 
terms. 


Logifiche Il, est un logiciel de gestion 
de fiches comportant de nombreuses 
possibilités de calcul, de traitement 
automatique et d'édition, ainsi que 
des possibilités de recherche muiticri- 
tère poussées. En vente par CFNI à 
1200 F HT, c'est un programme que 
nous analyserons pour vous. 


Autre logiciel français, Epistole est un 
traitement de texte pour Apple II 
ou //e réalisé par Micro Assistance et 
compatible avec Visicalc, Magicalc et 
Muitiplan. Il est vendu 2000 F HT, 
est compatible avec les cartes 80 co- 
lonnes, et permet l'exécution de mai- 
lings, la vision de textes préformatés 
et l'utilisation d'un glossaire, entre 
autres possibilités. 


Adde Marketing vient de sortir la ver- 
sion 7.0 de Décisionnel Graphique 
pour Apple. Voir notre banc d'essai. 


Le cours Basic d'André Finot est 
maintenant vendu avec un aide-mé- 
moire de 80 pages. Le cours s’ap- 
pelle maintenant ‘Léna 1”; le prix 
hélas a augmenté. Voir le banc d'es- 
sai publié dans le Pom's 7. 


Futurs produits Apple 


Les prochains mois verront l’appari- 
tion de deux nouveaux produits 
Apple. D'une part un nouveau suys- 
tème d'exploitation destiné à succé- 
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der au DOS 3.3 et nommé ProDos 
Très proche du SOS (Sophisticated 
Operating System) utilisé sur 
Apple //!, il permettra notamment de 
s'affranchir de la limite de 140K de 
l'unité de disquette Apple. L'utilisa- 
tion de disques durs, actuellement 
basée sur des partitions en volumes 
de 140K, sera donc beaucoup plus 
aisée. De plus. la structure hiérarchi- 
que du ProDos (identique à celle du 
SOS) permet de mieux organiser sa 
mémoire de masse quand un grand 
nombre de fichiers y sont stockés. 
ProDos est actuellement réservé aux 
auteurs de logiciels. afin de leur per- 
mettre d'en tirer avantage dans leurs 
nouveaux produits. Îl ne devrait être 
en vente ‘’publique” qu’au début de 
l'année 84. I permettra d'utiliser un 
Profile sur Apple Il Plus et//e. les 
disquettes formatées en ProDos se li- 
ront indifféremment avec les Apple Il 
Plus, //e ou /// Les lecteurs de dis- 
quettes Unifile et Duofile de 850K 
ont été abandonnés pour l'Apple /// 
et //e, car trop chers ; on entend par- 
ler de nouveaux lecteurs de disquet- 
tes 800K début 84 : c'est logique, car 
avoir le ProDos pour se limiter à 
140K ne serait pas très malin. 


Janvier 84 devrait également voir ap- 
paraître le nouvel ordinateur Apple 
Macintosh, sur lequel on ne dispose 
encore que de peu d'informations, si 
æ n'est qu'il utilisera comme Lisa un 
microprocesseur 68000. Le prix de- 
vrait être inférieur à 20000 F HT. 


Apple ne reste pas non plus inactif 
dans le domaine de la lutte contre les 
copies de son matériel. Un procès est 
actuellement intenté aux Etats-Unis 
contre Franklin Computer Corp. qui 
fabrique le très connu Franklin Ace, 
compatible” Apple H Malheureuse- 
ment pour eux, le Franklin Ace utilise 
une ROM moniteur identique à celle 
d l'Apple (évident. mon cher Wat- 
son! Pour être compatible...) Le 
premier jugement rendu déboutait 
Apple de sa demande, le juge esti- 
mant que le contenu d’une ROM ne 
pouvait pas être copyrighté En 
appel, la décision était annulée et le 
cas renvoyé devant le premier juge 
pour une étude plus approfondie du 
problème. Jugement final dans les 
mois à venir... 


Quoiqu'il en soit, Franklin Computer 
Corp essaie de diversifier ses pro- 
duits, puisqu'elle annonce la sortie 
prochaine d'un modèle portable 
compatible IBM (mais qui pennettra 
l'utilisation du DOS Apple et du 
CP/M). 


Certains constructeurs de ”’compati- 
bles” ont semble-t-il trouvé la parade 
en commercialisant des copies non 
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équipées de PROM. L'utilisateur 
devra en faire des copies ou se les 
procurer à ses propres risques. D'où 
une floraison de publicités pour de 
tels ordinateurs avec les mentions 
"No more copyright problems” ou 
même ‘Legal copy"!!! 


Divers 


Sivéa. distributeur Apple très connu. 
publie son catalogue 83/84. avec 80 
pages dont 25 consacrées à l'Apple 
(matériels. périphériques et logiciels) 
et une liste de prix. Le tout pour 15 


F remboursables au premier achat de 
plus de 150 F. 


Finlord est une société spécialisée 
dans la location de petits matériels 
informatiques (Apple, Commodore, 
Sharp.) Contrats de 6 mois à 5 
ans. 





Software Publishing publie 4 fois par 
an PES:News, brochure dédiée aux 
produits de la famille PFS. Contenu : 
information sur les nouveaux pro- 
duits, amélioration du PES, conseils 
d'utilisation. etc... 


Avant d'acheter un nouveau logiciel, 
n'oubliez pas de consulter la rubrique 
Fastalk dans Softalk (mensuel améri- 
cain disponible chez Sivéa). Elle dé- 
crit brièvement les meilleurs logiciels 
dans chaque domaine et vous per- 
met ainsi de vous faire une idée des 
principaux logiciels du marché. 


A noter dans le dernier numéro de 
Peelings (volume 4 numéro 6, chez 
Sivéa) une comparaison approfondie 
de 18 logiciels de traitement de texte. 
Un grand nombre de critères ont été 


chiffrés pour aboutir à un classement 
par point. Egalement dans le même 
numéro, une revue de cinq grands 
serveurs américains de banques de 
données. dont The Source et Com- 
puserve. 


Softdisk est un magazine sur dis- 
quette qui inclut informations. pro- 
grammes. publicités, jeux. démons- 
trations de programmes  com- 
merciaux. Deux disquettes double 
face sont éditées chaque mois. L'es- 
sai pour un mois coute $10. L'abon- 
nement à l'année $55. 


JCR lance des micro-boutiques JCR 
dans des magasins de Hi-Fi Vidéo : 
voilà une idée originale de franchise 
partielle qui devrait encore augmen- 
ter le nombre d'endroits où l'on 
pourra trouver Pom's. En ce qui 
concerne les boutiques, sachez aussi 
que l’on peut maintenant trouver les 
disquettes de Pom's à la Librairie 
d'Aujourd'hui. 


Adresses 


Adde Marketing - 27 rue des 
Vignes - 75016 Paris - Tél 527 9017 


Apple Seedrin - av. de l'Océanie - 
ZA de Courtaboeuf - BP 131 - 
91944 Les Ulis - Tél (6) 928.0139 


B.ILP. + 22 rue Joseph Dijon - 
75018 Paris - Tél 255.44.63 


Business Information Systems - 
5084 Mosiman Road - Middletown 
Ohio 45042 - USA 


Business Solutions - 60 East Main 
Street - Kings Park - NY 11754 - 
USA 


CDATA . 126 av. Charles de 
Gaulle - 95160 Montmorency - Tél 
(3) 412.92 29 
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Magicalc Tutorial 
Dubois, Mnémodyne - 385 pages. 


CFNI - 115 Bureaux de la Colline 
de St. Cloud - 92213 Saint Cloud - 
Tél 602.41.41 


CTA - Computer Technology Asso- 
ciates - 1704 Moon NE - Albuquer- 
que NM 87112 - USA 


Digital 
EMcFadden. Suite F - Santa Anna 
CA 92705 - USA 


ESP - Enhanced Software Products - 
po Box 178 - Wantagh NY 11793 - 
A 


Finlord - 15 Bd Saint Germain - 
75005 Paris - Tél 6342184 


Acoustics - 1415 


Finot (André) - 8 allée Buffon - 
91000 Evry Courcouronnes - Tél (6) 
077.23.35 


Hello - 1 rue de Metz 
- Tél 523.30.34 


Librairie d'Aujourd'hui - 253 rue 


- 75010 Paris 


Lecourbe - 75015 Paris - Tél 
528.72.88 
Logma - 12 rue d'Anjou - 78000 
Versailles 


Micro Assistance - 66 rue Casta- 
gnary-75015 Paris - Tél 530.05.28 


Micromos - ël 


Rue Ampère 
95301 Pontoise - 


Té (3) 032.37 78 


et 032.16.71 
Micropériph - 62. rue Ducouédic - 
75014 Paris - Tél 321.53.16 


Sivéa - 33 Bd des Batignolles - 
75008 Paris - Tél 522.70.66 


Softdisk - 3811 Saint Vincent. De- 
partment S9 - Shreveport LA 71108 
- USA 


Software Publishing - 2674 North 
First Street. Suite 210 - San Jose CA 
95134-USA 


TextPrint - 8 Blanchard Road - 
Burlington MA 01803 - USA 





Un bug Applewriter //e 


AW fe offre la possibilité intéressante 
d'autoriser avec ”CTRL-S =” la sau- 
vegarde du fichier sous le nom appa- 
raissant sur la ligne supérieure après 
"Fich:”. Le signe =” évite de devoir 
entrer le nom du fichier. J'ai égaré 


des fichiers à cause de cette facilité, 
et ce de la façon suivante: j'avais 
par exemple ‘Courrier,d2” comme 
nom de fichier actif : j'ai fait ’CTRL- 
O ADI” à un moment donné pour 
me renseigner sur le catalogue d'une 
disquette dans le drive 1 Puis. 
quand j'ai sauvegardé avec ‘CTRL-S 
=", AW //e, bien qu'affichant “Fich: 
Courrier. d2”. a sauvegardé sur le 


drive 1. Sur le coup, je ne m'en étais 
pas aperçu et je fus très surpris, en 
rechargeant ultérieurement ce fichier 
que je croyais avoir modifié. de le re- 
trouver dans son état initial. Conclu- 
sion : la sauvegarde par ”’=” ignore 


les compléments de nom tels que 
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Hervé Thiriez 





Bibliographie 


Alexandre Duback 


Initiation à Visicalc, de Christian 
Baudry, Masson - 152 pages - 80 
francs. 


Il s'agit là beaucoup plus d’un mode 


d'emploi que d'un livre d'initiation. 
en effet, aucun exemple autre qu'élé- 
mentaire n'est présenté, en outre, on 
n'y trouve pratquement pas les trucs 
d'utilisation qui permettent justement 
d'exploiter au mieux le tableur. Le 
format DIF est totalement ignoré. 
Eu dit. le livre est clair et facile à 
ire. 


de Christian 


Malgré son titre foncièrement anglo- 
phone, cet ouvrage est en françars; il 
comporte deux parties : l’apprentis- 
sage puis les exemples, au nombre 
de dix. Rien à dire, l'ouvrage semble 
bien atteindre son objectif. Nous le 
os aux acheteurs de Magi- 
calc. 


Multiplan sur Apple, de Philippe 
Bonnet et Manh T. Dinh, Edimicro - 
200 pages - 85 francs. 


C'est le premier livre sur la version 
française de Muitiplan. Il apporte les 
moyens d'un bon apprentissage de 
base avec de nombreux exemples 
d'application. On pourra regretter 
qu'il présente seulement une utilisa- 
tion de base de Multiplan, sans en 
profiter pour donner des trucs de 
fonctionnement : il ignore par exem- 
ple l'avantage que l’on a souvent à 
délimnter une zone en englobant les 
cellules visées, plutôt que de la pre- 
mière à la dernière cellule. 


20 progiciels-outils pour Apple 
Il, de Jean-Louis Marx et Alain Thi- 
bault, Editions du PSI - 248 pages - 
122 francs. 


Ïl s’agit de vingt bancs d'essai : deux 
tableurs, quatre traitements de texte, 
huit programmes de gestion de fi- 
chiers et six “divers”. Le travail est 
bien fait, mais on préfèrerait presque 


LIL. 
LAS ITT 


avoir des analyses plus approfondies 
encore, quitte à ce que cela corres- 
ponde à un nombre de programmes 
plus restreint. Une bonne idée : cha- 
que analyse se termine par un ta- 
bleau d'évaluation multicritère à 
compléter par le lecteur. 


Pascal for the Apple,de lain Mac- 
Callum, Prentice Hall - 66 Wood 
Lane End, Hemel Hempstead, Herts, 
HP2 4RG, Royaume Uni-495 pages 
et une disquette - $27.95. 


Nous vous parlons de ce livre avec 
disquette de façon enthousiaste, bien 
qu’il soit en anglais, car il s’agit d’un 
excellent cours de Pascal avec des 
travaux pratiques facilités par la dis- 
quette d'accompagnement. Selon 
l'auteur, il faut compter 80 heures 
sur l'Apple et 80 heures en lecture 
seule pour digérer cet ouvrage dense 
et complet. Nous n'avons pas eu le 
temps de le faire mais, vu ce que 
nous avons lu en diagonale, nous 
pensons que le but a toutes les chan- 
ces d'être atteint. 
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Je tiens à vous informer d'un bug 
dans Applewriter je et d'une mé- 
thode pour le contourner qui sera 
utile. je pense. à de nombreux lec- 
teurs. En effet. AW/e ne prend pas 
en compte le caractère CTRL-& qui 
correspond au code ASCII O et per- 
met, ere autres, ‘d'envoyer des 
commandes à l'imprimante. Pour 
lEpson. en particulier. il annule le 
soulignement ou l'écriture d'expo- 
sans. La solution est la suivante 


e avec là carte 80 colonnes éten- 
due : 

} BLOAD OBJ. APWRT 2F.A$2300 
} CAEL —151 

x 27827F 

x 44347F 

+ 3D0G 

] BSAVE OBJAPWRT 2F.A$2300. 
L$30D1 

® autrement. 

] BLOAD OBJ APWRT 2E.A$2300 
}CALL -151 

x 26E27F 

+ 48BB7F 

* 3D0G 

} BSAVE OBJAPWRT 2E.A$2300. 
L$2F58 


Avec ces modifications. on peut in- 
corporer CTRL-@& dans un texte ou 
dans un glossaire et bénéficier ainsi 
de toutes les possibilités de fimpri- 
mante. 


Gérard Rigaud - 125 chemin des 
Jonquilles - 13013 Marseille 


Nous vous remercions de ce rensei- 
gnement et encourageons les lecteurs 
qui auraient des informations de 
même nature à nous les faire parve- 
nir, afin que tous bénéficient de leur 
expérience. 





Le petit programme bien utile que je 
vous propose ci-dessous ajoute une 
instruction au DOS, l'instruction 
TDUMP. qui réalise le dump sur 
écran ou imprimante de tout fichier 
séquentiel. TEXT ou EXEC. La syn- 
taxe est tout simplement *TDUMP 
nomfic {.Si] {.Dij] LVk]" où ‘'nomfic” 
est le nom du fichier et où les cro- 
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Courrier des lecteurs 


chets indiquent des paramètres facul- 
tatifs. 


La touche CTRL-@ interrompt détini- 
tivement la liste. Toute autre touche 
joue le rôle dun interrupteur 
{arrét'marche). 


10 REM DUMP FICHIER 


TEXTE 

11 REM COMMANDE REMP 
LACE CHAIN 

12 REM SYNTAXE: TDUM 
P FICHIER 

100 HEXS = “A893:54 4 


4 S5 4D DO N 3 
D26:DE BC N BC 
DF:20 8E FD 20 
A3 A2 20 &C A 
& FO 12 20 ED 
FD AD O CO 10 
F3 8D 10 CO 20 
1B* ED"C9 91 D 
© E9 20 FC A2 
60 N D7D26" 


110 FOR I = 1 TO LE 
N CHEXS): POKE 

S11 + I, ASC 

€ MIDS (CHEXS,I 

»1)) + 128: NE 

XT : POKE 72,0 

: CALL - 144 


Yvan Koenig - Rue du Stade - 


06220 Vallauris 





< 1 > J'ai appris l'assembleur en 
autodidacte. Dans ma progression. 
j'en arrive au DOS. Je pense savoir 
mettre en oeuvre la routine RWTS 
(manuel DOS. page 89} À titre 
d'exercice. je voulais modifier le nu- 
méro de volume d'une disquette. Ce 
numéro se trouve dans la VTOC. 
piste $11, secteur $00. octet $06 
{page 125). {} faut donc lire ce sec- 
teur, le modifier. puis le réécrire 


J'ai suivi les consignes page 91. En 
lecture, tout va bien. la zone $2000- 
20FF qui sert de buffer reçoit bien la 
VTOC. En écriture. la fin des opéra- 
tions se solde par un bip ! La consul- 
tation de la table IOB nous donne la 
valeur $20 dans IBSTAT: Volume 
Mismatch. Néanmoins. une nouvelle 
consultation de la VTOC prouve que 
l'octet du numéro de volume à bien 
été modifié Mais une commande 


sanwsar 
METEL2) 


Olivier Herz 


CATALOG donne l'ancien numéro. 
même après coupure du secteur. Où 
le DOS vatt-il chercher cette informa- 
bon ? 


< 2 > Après plusieurs tentatives in- 
fructueuses en assembleur. je me de- 
mande comment on peut s y prendre 
pour tracer un cercle vite fait. Avez- 
vous la réponse ? 


< 3 > Voici aussi quelques trucs 
pour les lecteurs de Pom's 


Si on tape CTRL-J dans une REM, 
on passe à la ligne suivante. On peut 
séparer des reutines très clairement 
sans ajouter des lignes numérotées 
compoitant des ‘:" ou autres REMs 
On peut bien sûr insérer un 
commentaire entre deux séries de 
CTRL-J. Tout cela marche aussi sur 
imprimante. 


On peut avoir des commentaires en 
minuscules sur une Seikosha GP100. 
1 suffit d'encadrer les commentaires 
de CTRL-Z itant en Basic qu'en 
ToolKit} Les commandes CTR£E-O 
et CTRL-N sont aussi reconnues. 


Erick Ringot - 62/71 rue Jean Bart - 
59290 Wasquehal 


< 1 > Le DISK VOLUME: si l'on 
s'en tient aux secteurs tels qu'en 
peut les lire avec RWTS. le problème 
semble effectivement incompréhensi- 
ble. Mais la ”bible” en matière de 
DOS {le célèbre BENEATH APPLE 
DOS) montre que le numéro de vo- 
lume apparait physiquement sur la 
disquette. On le trouve en effet dans 
le champ d'adresses de chaque sec- 
teur de chaque piste de la disquette 
Ce champ d'adresses. qui est à op- 
poser au champ de données dont le 
décodage par RWTS fournit les 256 
octet bien connus. contient entre 
autres les numéros de secteur, piste 
et volume ainsi que le “checksum” 
du secteur. Ceci explique pourquoi il 
est impossible de changer le numéro 
d'une disquette avec le DOS autre- 
ment qu’en la ré-initialisant, le nu- 
méro de volume dans le VTOC ne 
servant qu’à être lu par un utilisateur 
éventuel desirant le connaître. 


< 2 > Le tracé d'un cercle en haute 
résolution sur l'Apple à toujours été 
quelque chose d'assez long. Je vous 
propose néanmoins deux voies de 
recherche qui pourraient diviser le 
temps de tracé par deux. ou trois au 
maximum : 


PATATE III 


RE 
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— Tracer un polygone régulier, avant 
suffisamment de côtés pour être 
confondu avec un cercle. Tout le 
problème consiste à faire coïncider 
les deux bouts (cf. le programme de 
démonstration de HAÏFA dans le nu- 
méro 5 de Pom's). 


— Calculer au préalable les sinus et 
les stocker dans une table. 


< 3 > Merci pour vos trucs et astu- 
ces pour imprimante. 


Lorsque je fais tourner PFS ou PFS 
Report avec la carte Chat Mauve, je 
ne parviens plus à imprimer. Y a-t-il 
une autre solution que d'enlever la 
carte pour pouvoir imprimer {NDL R : 
l'appareil étant éteint. bien en- 
tendu) ? 


Bruno Piat - Centre Technique du 
Cuir - BP 7001 - 69342 Lyon Cedex 
07 


Nous savons que la carte Chat 
Mauve est incompatible en Pascal 
avec l'imprimante Epson accompa- 
gnée de sa carte graphique. Ce doit 
être le problème que vous avez ren- 
contré, puisque PFS est écrit en Pas- 
cal. Si vous avez une autre impri- 
mante, vous pouvez téléphoner au 
répondeur de Chat Mauve. (1) 
201.67.73. 





1 - Pouvezvous m'indiquer la mé- 
thode qui permet de formater une 
disquette sans champ adresse mais 
en chargeant plus rapidement les 
programmes en utilisant des relations 
de temps entre chaque secteur ? 


2 - Quelles sont les raisons qui ont 
poussé  Ediciel à organiser un 
concours de déplantage de la dis- 
quette Naja alors que la protection 
est super-minimale ? I ne faut pas 
plus de quelques heures pour en 
faire un COPYA en modifiant quel- 
ques petites choses. 


J.-L. Lagrange - 150 rue du Mai. 
Oudinot - 54000 Nancy 


1 - Jde ne peux vous expliquer en 
quelques lignes la méthode pour ini- 
tialiser une disquette en permutant 
l'arrangement des secteurs, afin de 
charger plus rapidement les program- 
mes. Lisez pour cela Bag of Tricks et 
le numéro spécial de Call Apple : AÏ 
about DOS. 


2 - En ce qui concerne la disquette 
Naja, je pense que l'objectif était 
avant tout publicitaire. 


Nous venons de recevoir un 
Apple //e La notice n'est pas telle- 


ment explicite au sujet des 16K qui 
portent là mémoire à 64K. Pourriez- 
vous me dire. 


Où se trouvent les 16K ? 


Quelles adresses les déclenchent ? 


Comment on s'en sert dans un pro- 
gramme ? 


Où se trouve alors la HIMEM ? 


Jean-Claude Baron - Lieudit Courbet 
- Montaigu 5s/Save - 31530 Lévignac 


Voici quelques éclaircissements sur 
les 16K supplémentaires de l'Ap- 
ple //e, qui sont compatibles au point 
de vue soft avec les cartes 16K de 
l'Apple ][. 


Carte de la mémoire : 


FFFF 


E000 


DFFF 
Bank 1 


(4K) 


Bank 2 
(4K) 


D000 


Comme les 4K $CO00-$CFFF sont 
réservés aux entrées-sorties, on ne 
peut adresser les 64K, mais seule- 
ment 60. On à donc 12K de RAM 
adressable supplémentaire ($DO000 à 
$FFFF), en parallèle avec la ROM. 
Mais les constructeurs, voulant offrir 
16K, nombre plus parlant. ont fourni 
deux fois en parallèle les 4K $D000 
à $DFFF, zones appelées BANKI et 
BANK2. Pour savoir quel BANK le 
microprocesseur adressera et pour 
savoir si l’on adresse la RAM ou la 
ROM. ï faut des adresses de 
contrôle. 


Adresses de contrôle : 


Pour pouvoir utiliser une adresse, il 
suffit d'y accéder. c'est-à-dire faire un 
PEEK ou POKE en Applesoft ou un 
LDA, STA, BIT. CMP, etc. en lan- 
gage machine. 


$C080 (—16256) sélectionne la RAM 
en lecture. le BANK2 et empêche 
l'écriture sur la RAM 


$CO81 (-16255) sélectionne la 
ROM en lecture, le BANK2 et per- 
met l'écriture sur la RAM si l'adresse 
est adressée deux fois. 


$CO82 (—-16254) sélectionne la 
ROM en lecture. le BANK2 et empé- 
che l'écriture sur la RAM. 





$CO83 (—16253) sélectionne la RAM 
en lecture, le BANK2 et permet 
l'écriture sur la RAM si l'adresse est 
adressée deux fois. 


$C088 (—16248) sélectionne la RAM 
en lecture, le BANKI et empêche 
l'écriture sur la RAM. 


$CO89 (—-16247) sélectionne la 
ROM en lecture, le BANKI et per- 
met l'écriture sur la RAM si l'adresse 
est adressée deux fois. 


$CO8A (-—-16246) sélectionne la 
ROM en lecture. le BANKI et empé- 
che l'écriture sur la RAM. 


$CO8B (—-16245) sélectionne la 
RAM en lecture. le BANKI et permet 
l'écriture sur la RAM si l'adresse est 
adressée deux fois. 


Comment s’en servir ? 


Depuis un programme Applesoft, on 
ne peut pas tellement utiliser ces 16K 
supplémentaires et la HIMEM reste 
celle d'un 48K. Toutefois, certains 
uälitaires permettent d'utiliser les pos- 
sibilités de ces 16K : des programmes 
qu', en mettant le DOS (mais pas ses 
buffers) sur ces 16K, permettent de 
monter la HIMEM à $B800 ; ou un 
utilitaire comme HAÏIFA (Pom's 5) 
dont une grande partie se charge sur 
ces 16K et qui, en abaissant la 
HIMEM à $80@9 seulement, permet 
de doubler voire tripler la puissance 
de l'Applesoft. En bref, l’utilisation de 
ces 16K, à moins de servir de zone 
de stockage d'octets, reste le do- 
maine privilégié du programmeur en 
langage machine. 


Certains lecteurs, peu familiers avec 
l'assembleur, nous ont demandé 
comment mettre en oeuvre le patch 
de la Hard Copy Seikosha indiqué 
page 36 dans le Pom's 9, 


Voici la séquence à suivre : 

] BLOAD SEKO.OBJ,A$1800 
] CALL —151 

+ 193F:90 

* 3D0G 

] BSAVE SEIKO.OBJ.A$1800, 
L$IDB 


Nous conseillons aux lecteurs qui ne 
savent pas trop comment entrer un 
programme en assembleur de lire 
l’article Notions de base” de Gérard 
Michel dans le Pom's 3 


Je me permets de vous signaler trois 
erreurs dans la publication de mon 
article Editeur-compositeur de texte 
dans le numéro 9 de Pons: 


Pom's n 18 








Page 12, milieu de colonne I. écrire : 
“Supprimer les lignes 50, 350, 9500 
à 10000" au lieu de. 9500 et 
10000 ; 


Haut de page 13 : les jours de la se- 
maine sont imprimés sur la 6° co- 
lonne à cause du ÎT5 ; 


Page 16, les lignes 10 à 250 précè- 
dent évidemment les lignes 260 à 
370. 


Gérard Hisieur - 19 rue Edmond 
Rostand - 38320 Evbens 





Nous avons eu aussi une erreur de 
montage dans le Truc et Astuce page 
27 du N° 9 : le programme a été 
oublié, ce qui n’était pas gênant pour 
les lecteurs abonnés aux disquettes 
qui étaient les premiers concernés ; 
en effet, ils l'ont trouvé sur la dis- 
quette, Enfin, le voici : 


#300. 31D 


0300- A2 17 8À 20 C1 FB À5 28 
0308- 45 FE 18 AS 29 69 SC &5 
0310- FF À0 27 BI FE 91 28 88 
0318- 10 F9 CA 10 ES 60 








MYSTERY HOUSE 





GORGON . 
COPS & ROBBERS 
CHOPFLITER 





EPIDEMIC 
FATHOMS 49 VE 
THE SERPENT'S STAR 





MASK OF THE SUN 





DARKCRYSTAL _.., 
ESCAPE RUNGISTAN 
WIZARD & PRINCESS 





CROUSTON MANOR ... 
ULYSSE  .. PAS 
WYSARDRY . 





GERMANY 1885 br 
GUNS FORT DEFIANCE . 
B@MB ALLEY . 





BATTLE FOR NORMANDY 





BATTLE SHILOH 
GUADAL canal 
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au SUD de PARIS 


VISIPLOT 

EZ-DRAW 

VISIFILE 7 
DESKTOP PLAN 
PROG LINE EDITOR 
VISITRENB/PLOT 
BAG OF TRICKS 
PFS REPORT APP 2 
PFS FILE APPLE 2 
VISIBEX } 
PFS GRAPF APPLE 2 
EDI-LOGO 

COMPTA GENERALE 
APPLE PLOT 

BOS TOOL KIT 

LISA 

BAKIN 5 

APPLE PILOT 

APPLE FORTRAN 
APPLE WORLD 


Courrier des Clubs 


Prochaines réunions du club Ma 
Pomme 


— les jeux, par Michel Lavner : war- 
games, arcade, donjon, aventure, si- 
mulation.. Le 18 janvier à 19 
heures, 110 avenue du Général Le- 
clerc - Paris (14) 


— les applications audiovisuelles, par 
Bernard Buel: pilotage de diapo- 
rama, vidéodisques interactifs, lasers, 
etc. Le 15 février à 19 heures, Mes- 
sage Audiovisuel, 60 rue Brancion - 
Paris (15). 


— les robots, le 21 mars à 19 heures, 
avenue du Général Leclerc. 


Ma Pomme - 6 rue Paul Saunière - 
75016 Paris. 


15, RUE DE LA CITÉ 
UNIVERSITAIRE, 
75014 PARIS. 


Centre de vente et de démonstration de 
micro-ordinateurs, logiclels et périphériques 


Computer 


TEL. 589.49.52 
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Ci-joint mon règlement 









md —— 


poms 


e la disquette HAIFA Source| | au prix de 55 F la disquette (cf. Pom's n° 5) 
e le logiciel H-BASIC [_] au prix de 150 F (cf. Pom'’s n° 8) 
le logiciel MUSIC [_] au prix de 80 F (cf. Pom's n° 10) 


recueil n° 1 de Pom's {n° 1 à 4) 
[] avec ses 3 disquettes au prix de 270 F 
[] sans disquette au prix de 120 F 
[] les 3 disquettes seules au prix de 150 F 


Montant 
TTC 


































Montant 
TTC 


Je désire recevoir : 


e les numéros de la revue Pom'’s | | 4 TK. EÉSRlOIElS 


au prix de 35 F le numéro épuré 


9 [C]10 





e les numéros de la revue Pom's |] 
au prix de 40 F le numéro 





e les disquettes d'accompagnement des numéros 


EMEA AN SET MENT 


au prix de 55 F par disquette 





[] 8 





Je désire m’abonner pour 4 numéros à partir du n° 


[] sans disquette au prix de 135 F 
[] avec disquettes au prix de 325 F 
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Envoyez ce bon de commande et votre règlement à : 
Éditions MEV - 49, rue Lamartine - 78000 Versailles 
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Ces tarifs comprennent l'envoi postal en France Métropolitaine, CEE et Suisse (voie aérienne exceptée) 


Pour envoi par avion : nous consulter 


JCR L’UNIVERS 
MICRO-INFORMATIQUE 





CT IT TEL darrte 


APPLE Ile 


L'ordineteur persennel 
Clavier AZERTY/@WERTY. 
Mémeire 64 K RAM. 


PROMOTION DE NŒL 
| APPLE Île 64 F 





1 Disa Il avec centréleur 
] Meniteur 


NOUS CONSULTER 


PÉRIPHÉRIQUES Alle AII+ 


Disa Il avec centréleur 
Disq Il sans contréleur 
imprimante SILENTYPE 
Imprimante matricielle APPLE 





CARTES INTERFACE Alle AII + 


Cartes 88 Celennes 
Cartes #0 col. +64 K 





Carte ceuleur +88 cel. EVE 
Interface série 
rteiface parallèle 

















Carte UZ88 CPM à SE 980 F 
Carte langage 16 K 1150F 
Caite UTIM horlege 

Caite UTERM 88 col. 1490F 


MICROBUFFER 16 K pour EPSON 
MICROBUFFER 64 K extérieur 
Cievier rumérique Alle ,,. 1126F 
CateRVBAlchalmauve ... 1297F 





Peignées de jeu Alle -.. 250F 
Joysuck Âlle . » 480 F 
BisqueltesSF/SD3Mlies1@ .. 210F 
DisquettesDF/DD 3Mles1@ a52F 
Papier listing 8 cel. . 290F 
Papier listing 132 cel. 350 F 
APPLE II 


L'erdinateur prefessionnel par excel- 
lence. 256 K de mémeire. Lecteur de 
diseuette Imcerperé. 





LOGICIELS AI 


Traitement de texte APPLE WRITER 
Tableau de calcul VISICALC 
Cemptabilité 

Paye 

Pregrammes VISICORP 


PROGRAMMES DE JEUX 


Zaxzxen ,,,,,,.,.,., ... 490F 
Snake Byie mme 371F 
Cheplifter.,,,.,............ 361F 
Apple Panic sas crc 309 F 
Flight Simulator HN ...,,,,.... a15F 
SETROX enorme 309 F 
Computer Air Combat ....., 619F 
Caitels and Cuthreat ,...... a12F 
Seuthern Cemmand ........ 309 F 
David Midnight Magic ...., 3861F 


400 AUTRES PROGRAMMES A 
NOTRE CATALOGUE. 





LIBRAIRIE 

Initiatien au Basic sacs . 107F 
Intreduction au Pascel ...... 160F 
Gide du CPM same 117F 
La déceuverte applesoft ,,, 72F 
Le pratique de l'APPLE ses CA2E 


PLUS DE 150 TITRES A NOTRE 
CATALOGUE 
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